TMcrPay = class(TCheckItem)

  property InputType : TInputType   read FInputType     write FInputType;  property PayLineType : TPayLineType read FPayLineType   write FPayLineType;  property CardNum : string       read FCardNum       write FCardNum;  property ExpDate : integer      read FExpDate       write FExpDate;  property AuthCode : string       read FAuthCode      write FAuthCode;  property Track2 : string       read FTrack2        write FTrack2;  property AccountIdent : Int8         read FAccountIdent  write FAccountIdent;  property Owner : string       read FOwner         write FOwner;  property MaxAmount : TMoney       read FMaxAmount     write SetMaxAmount;  property FullyPaid : boolean      read FFullyPaid     write FFullyPaid;  property Amount : TMoney       read FAmount        write FAmount stored False;  property AddByInterface:tIdent       read fAddByInterface write fAddByInterface;  property Defaulter : TIdent       read FDefaulter     write FDefaulter;  property ExtTransactionInfo: string255 read FExtTransactionInfo write FExtTransactionInfo;end;