var
  MyCash :variant;
begin

  MyCash := CreateOleObject('AddIn.DrvFR');
  MyCash.Password := '30';
  MyCash.Connect;
  CreaTEHINTI('ECRMODE = '+inttostr(MyCash.ECRMOde));
  CreaTEHINTI('ResultCode = '+inttostr(MyCash.ResultCode));
  createhinti('ecrstatus = '+inttostr(MyCash.GetECRStatus));
  CreaTEHINTI('SerialNUmber = '+MyCash.SerialNumber);
  createhinti('SessionNUmber = '+inttostr(MyCash.SessionNUmber));
end.