begin
  repeat
    Result := ZR_Rd_GetNextMessage(g_hRd, nMsg, nMsgParam);
    if Result <> S_OK then
      break;
    case nMsg of
      ZR_RN_CARD_INSERT:
      begin
        pInfo := PZr_Card_Info(nMsgParam);
        ASSERT(pInfo <> nil);
        Writeln(format('Card insert: %s %s', [
            CardTypeStrs[pInfo.nType], ZKeyNumToStr(pInfo.nNum, pInfo.nType)]));
{-----} Writeln(format('Card insert: %s %s', [
            CardTypeStrs[pInfo.nType], ZKeyNumToStr(pInfo.nNum, pInfo.nType)]));
            
      end;
      ZR_RN_CARD_REMOVE:
      begin
        pInfo := PZr_Card_Info(nMsgParam);
        ASSERT(pInfo <> nil);
{-----} Writeln(format('Card removed: %s %s', [
            CardTypeStrs[pInfo.nType], ZKeyNumToStr(pInfo.nNum, pInfo.nType)]));
      end;
    end;
  until False;
  if Result = ZP_S_NOTFOUND then
    Result := S_OK;
end;

form2.ADOQuery1.SQL.Text:='INTO INFO_CARD [(CARD_NUMBER)] VALUES (s);';

form2.ADOQuery1.SQL.Text:= 'INSERT INTO INFO_CARD [(CARD_NUMBER)] VALUES (s)';

form2.ADOQuery1.SQL.Text:= 'INSERT INTO INFO_CARD (ID,CARD_NUMBER,EVENT_DATE,CARD_INSERT) VALUES s,a,b,c';

form2.ADOQuery1.SQL.Text:= 'INSERT INTO INFO_CARD (ID,CARD_NUMBER,EVENT_DATE,CARD_INSERT) VALUES ''s'',''a'',''b'',''c''';

form2.ADOQuery1.SQL.Text:= 'INSERT INTO INFO_CARD VALUES (5,7,''12.12.12'',9);'

program EnumCards;

{$APPTYPE CONSOLE}


uses
  Vcl.Forms,
  Windows,
  SysUtils,
  SyncObjs,
  ActiveX,
  ZBase,
  Dialogs,
  ZPort,
  ZReader,
  ZRClasses,
  Utils,
  DateUtils,
  Unit2 in 'Unit2.pas' {Form2};

type
  TForm2 = class(TForm)

  end;
const
  RdPortType = ZP_PORT_COM;
  RdPortName = 'COM5';
var
   g_hRd: THandle;  // Дескриптор устройства
  g_oEvent: TEvent = nil;
  g_fThreadActive: Boolean;
  g_hThread: THandle = 0;



function CheckNotifyMsgs(): HResult;
var
  s: integer;
  a: integer;
  b: string;
  c: integer;
  nMsg: Cardinal;
  nMsgParam: NativeInt;
  pInfo: PZR_CARD_INFO;
begin
      s:=5;
      a:=7;
      b:= '12.12.12';
      c:=9;

  repeat
    Result := ZR_Rd_GetNextMessage(g_hRd, nMsg, nMsgParam);
    if Result <> S_OK then
      break;
    case nMsg of
      ZR_RN_CARD_INSERT:
      begin

        pInfo := PZr_Card_Info(nMsgParam);
        ASSERT(pInfo <> nil);
        Writeln(format('Card insert: %s %s', [
  {-----}    CardTypeStrs[pInfo.nType], ZKeyNumToStr(pInfo.nNum, pInfo.nType)]));
               Writeln(s);
              try
  form2.ADOQuery1.SQL.Text:= 'INSERT INTO INFO_CARD VALUES (5,7,''12.12.2012'',9);';
  form2.ADOQuery1.ExecSQL;
except
  on E: Exception do
    ShowMessage(E.ClassName + ', ' + E.Message);
end;

      end;
      ZR_RN_CARD_REMOVE:
      begin
        pInfo := PZr_Card_Info(nMsgParam);
        ASSERT(pInfo <> nil);
{-----} Writeln(format('Card removed: %s %s', [
            CardTypeStrs[pInfo.nType], ZKeyNumToStr(pInfo.nNum, pInfo.nType)]));
      end;
    end;
  until False;
  if Result = ZP_S_NOTFOUND then
    Result := S_OK;
end;


function NotifyThreadProc(AParameter: Pointer): Cardinal; stdcall;
begin
  while g_fThreadActive do
		if g_oEvent.WaitFor() = wrSignaled then
    begin
			g_oEvent.ResetEvent();
      if g_hRd <> 0 then
        CheckNotifyMsgs();


    end;
  Result := 0;
end;

procedure StartNotifyThread();
var
  nThreadId: Cardinal;
begin
  if g_hThread <> 0 then
    Exit;
  g_fThreadActive := True;
  g_hThread := CreateThread(nil, 0, @NotifyThreadProc, nil, 0, nThreadId);
end;

procedure StopNotifyThread();
begin
  if g_hThread = 0 then
    Exit;
  g_fThreadActive := False;
  g_oEvent.SetEvent();
  WaitForSingleObject(g_hThread, INFINITE);
  CloseHandle(g_hThread);
end;

procedure DoTest();
var
  rOpen: TZr_Rd_Open_Params;
  rRdInf: TZr_Rd_Info;
  rNS: TZr_Rd_Notify_Settings;
  nCardCount: Integer;
  hr: HResult;
  rInfo: TZr_Card_Info;
  traa:integer;
begin
  traa:=55;
  SetConsoleOutputCP(1251); // Переключение консоли на кодовую страницу CP1251 (Windows-1251).

  if not CheckZRVersion() then
  begin
    Writeln('Wrong version SDK.');
    Readln;
    exit;
  end;

  CheckZRError(ZR_Initialize(ZP_IF_NO_MSG_LOOP or ZP_IF_LOG));
  try
    Writeln(format('Open reader (%s)...', [RdPortName]));
    FillChar(rOpen, SizeOf(rOpen), 0);
    rOpen.pszName := PChar(RdPortName);
    rOpen.nType := RdPortType;
    FillChar(rRdInf, SizeOf(rRdInf), 0);
    CheckZRError(ZR_Rd_Open(g_hRd, rOpen, @rRdInf));

    Writeln(format('%s, sn: %d, v%d.%d', [
        ReaderTypeStrs[rRdInf.nType],
        rRdInf.rBase.nSn,
        rRdInf.rBase.nVersion and $ff, (rRdInf.rBase.nVersion shr 8) and $ff]));

    Writeln('Search cards...');
    Writeln(tra);
    nCardCount := 0;
    CheckZRError(ZR_Rd_SearchCards(g_hRd));
    repeat
      hr := ZR_Rd_FindNextCard(g_hRd, @rInfo);
      if hr <> S_OK then
        break;
      Inc(nCardCount);
      Writeln(format('%d. Type: %s; Number: %s', [
          nCardCount, CardTypeStrs[rInfo.nType], ZKeyNumToStr(rInfo.nNum, rInfo.nType)]));
    until False;
    CheckZRError(hr);
    ZR_Rd_FindNextCard(g_hRd, nil);

    Writeln('--------------');
    if nCardCount > 0 then
      Writeln(format('Found %d cards', [nCardCount]))
    else
      Writeln('Cards not found.');

    // Настраиваем уведомления
    g_oEvent := TEvent.Create(nil, True, False, '');
    FillChar(rNS, SizeOf(rNS), 0);
    rNS.nNMask := ZR_RNF_EXIST_CARD;
    rNS.hEvent := g_oEvent.Handle;
    CheckZRError(ZR_Rd_SetNotification(g_hRd, @rNS));
    StartNotifyThread();
    Writeln('Wait card...');
    Readln;
  finally
    StopNotifyThread();
    if g_hRd <> 0 then
      Zr_CloseHandle(g_hRd);
    if g_oEvent <> nil then
      g_oEvent.Free();
    ZR_Finalyze();
  end;
end;

begin


      with Unit2.TForm2.Create(nil) do

  try
    { TODO -oUser -cConsole Main : Insert code here }

    DoTest();
  except
    on E: Exception do
    begin
      Writeln(E.ClassName, ': ', E.Message);
      Readln;
    end;
  end;
end.

 CoInitialize(Nil);
              try
  form2.ADOQuery1.SQL.Text:= 'INSERT INTO INFO_CARD VALUES (5,7,''12.12.2012'',9);';
  form2.ADOQuery1.ExecSQL;
except
  on E: Exception do
    ShowMessage(E.ClassName + ', ' + E.Message);
end;