unit UnitPunktMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, ComObj, Vcl.Buttons;

type
  TFMain = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  FMain: TFMain;

implementation

{$R *.dfm}

procedure TFMain.SpeedButton1Click(Sender: TObject);
var ss:String;
  ECR:OleVariant;//ККМ
begin
      try
        ECR := CreateOleObject('AddIn.DrvFR');
        ECR.Password:=30;
        if (ECR.GetECRStatus=0)and
           (ECR.GetShortECRStatus=0)
        then
          begin
            ss:='';
            ss:=ss+'Режим: '+inttostr(ECR.ECRMode)+' '+(ECR.ECRModeDescription);
            ss:=ss+#10+#13;
            ss:=ss+'Серийный номер:'+inttostr(ECR.SerialNumber);
            Application.MessageBox(PWideChar(ss), PChar('Статус ФР'), MB_ICONINFORMATION + MB_OK);
          end
        else
          begin
            MessageDlg(' Установить соединение с ФР не удалось. ',mtError,[mbClose],0);
          end;
      finally
        ECR := 0;
      end;
end;

end.