TMcrPay = class(TCheckItem)

published

  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;