[NumLock]

Сообщение от SKIPtr

у меня это действие должно каждый раз срабатывать
я поставил бесконечный цикл
при SetEvent когда происходит это событие оно начинает непрерывно это выполнять

неправда! у CreateEvent bManualReset = False.

Код:

procedure TWaitThread.Execute;
begin
  FMsg:='Execute start';
  Synchronize(Updt);

  while true do
  begin

    FMsg:='WaitForSingleObject';
    Synchronize(Updt);
    case WaitForSingleObject(HEvent, 5000) of (* INFINITE *)
      WAIT_OBJECT_0: begin
        FMsg:='WAIT_OBJECT_0';
        Synchronize(Updt);
      end;
      WAIT_TIMEOUT: begin
        FMsg:='WAIT_TIMEOUT';
        Synchronize(Updt);
      end;
    end;

  end;
 
  FMsg:='Execute stop'+sLineBreak;
  Synchronize(Updt);
end;

каждая итерация будет выполняться только при нажатии на кнопку.

могу даже exe выложить.