type TIFPSProcedure = class(TObject)
constructor Create;
destructor Destroy; override;
property Attributes: TIFPSAttributes;