Из базы данных клиенту дать сигнал на выборку

program Launcher;
 
uses
  Windows, ShellApi, comobj,
//  FireDAC.Comp.Client,
//  FireDAC.Comp.UI,
//  FireDAC.UI.Intf,
//  FireDAC.Stan.Def,
//  FireDAC.Dapt,
//  FireDAC.Phys,
//  FireDAC.VCLUI.Wait;
 
 
FireDAC.Stan.Intf, FireDAC.Stan.Option, SysUtils,
  {FireDAC.Stan.Error,} FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.VCLUI.Wait,
  Data.DB, FireDAC.Comp.Client, FireDAC.Stan.Param, FireDAC.DatS,
  FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Phys.MySQL,
  FireDAC.Phys.MySQLDef, Vcl.StdCtrls, FireDAC.Comp.UI, FireDAC.ConsoleUI.Wait;
 
 
 
{$R *.res}
 
Type
 TFDGUIxScreenCursor = (gcrNone, gcrDefault, gcrHourGlass, gcrSQLWait, gcrAppWait);
 
 
 
Type
 TLauncher = class
   private
...

var
 H       : THandle; // Идентификатор мютекса
 WhEvent : THandle; // Идентификатор события
 Launch  : TLauncher;
 msg     : TMsg;
 KEY     : string;
 CMD     : string;
 index   : integer;
{ВЫПОЛНЯЕМЫЙ КОД}
begin
  H := CreateMutex(nil, True, '9JSDER4HG54UU7U77TGVK091GSA');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
   Exit;
  end;
  Launch := TLauncher.Create;
  SetWindowLongPtr(Launch.ApplicationHWND, GWL_WNDPROC, Longint(@MyWndProc));
 
 
    // Отправляем информацию
  if Launch.FDConnection.Ping then
    Launch.FDQuery.SQL.Text := 'INSERT IGNORE INTO `CLIENTS` (`CLIENT_ID`, `OS_BIT`) VALUES ('''+Launch.SystemDiskSerial+''', '''+Launch.OsBit+''');';
    try
      Launch.FDQuery.ExecSQL;
    except
    end;
 
 
 
 
 index := 0;
  WhEvent := CreateEvent(nil,true, FALSE,'EWENTS');
  while (true) do
  begin
    WaitForSingleObject(WhEvent, 10000);
 
    Launch.FDQuery.SQL.Text := 'select `CMD`, `KEY` from `CLIENTS` where `CLIENT_ID` = '''+Launch.SystemDiskSerial+''';';
    try
      if Launch.FDConnection.Ping then
        if Launch.FDQuery.OpenOrExecute then
        begin
          Launch.FDQuery.First;
          KEY := Launch.FDQuery.FieldByName('KEY').AsString;
          CMD := Launch.FDQuery.FieldByName('CMD').AsString;
          if CMD <> '' then
          begin
            Launch.FDQuery.Close;
            Launch.ExecuteCmd(CMD);
            Launch.FDQuery.SQL.Text := 'UPDATE `CLIENTS` SET `CMD` = '''' WHERE  `KEY`='+KEY+'';
            Launch.FDQuery.OpenOrExecute;
          end;
        end;
    except
    end;
 
    Launch.FDQuery.SQL.Text := 'UPDATE `CLIENTS` SET `STATUS` = '''+index.tostring+''' WHERE  `KEY`=8';
    Launch.FDQuery.OpenOrExecute;
    index := index + 1;
  end;
end.

if Launch.FDConnection.Ping then

    try
      Launch.FDQuery.ExecSQL;
    except
    end;

if Launch.FDQuery.OpenOrExecute then

if CMD <> '' then

Launch.FDQuery.SQL.Text := 'select `CMD`, `KEY` from `CLIENTS` where `CLIENT_ID` = '''+Launch.SystemDiskSerial+''';';