Обработка сообщений в консольном приложении

...
const
  WM_START_ = WM_USER;
  WM_RUN_    = WM_USER+1;
  WM_PAUSE_ = WM_USER+2;
  WM_STOP_  = WM_USER+3;
...
// СТАРТ
procedure TMain_Form.ButtonStartPRDClick(Sender: TObject);
var hdl: THandle;
    res, err: integer;
begin
  hdl:=FindWindow('ConsoleWindowClass','PRD');
  if hdl=0 then begin
    ShowMessage('Отсутствует ПРД приложение!');
  end;
  res:=SendMessage(hdl, WM_START_, ComboBoxAudioPRD.ItemIndex, 0);
  err:=GetLastError;
end;
...

program PRD_Project;
{$APPTYPE CONSOLE}
uses SysUtils, Windows, Messages;
var Msg: TMsg;
begin
  SetConsoleTitle('PRD');
  repeat
    if PeekMessage(Msg,0,0,0,PM_NOREMOVE) then begin
      GetMessage(Msg,0,0,0); 
      Writeln(IntToStr(Msg.message)); // тут будет реальная обработка сообщений
    end;
    // Тут будет полезный код
  until False;
end.

const
  WM_START_ = WM_USER;
  WM_RUN_   = WM_USER+1;
  WM_PAUSE_ = WM_USER+2;
  WM_STOP_  = WM_USER+3;
var
  Main_Form: TMain_Form;
  HdlPRD: THandle;
implementation
{$R *.dfm}
procedure TMain_Form.FormCreate(Sender: TObject);
begin
  ...
  // Считывание дескриптора потока консольного приложения
  HdlPRD:=GetWindowThreadProcessId(FindWindow('ConsoleWindowClass','PRD'), nil);
  ...
end;
procedure TMain_Form.ButtonStartPRDClick(Sender: TObject);
begin
  PostThreadMessage(HdlPRD, WM_START_, 0, 0); // Передача сообщения потоку консольного приложения
end;

program PRD_Project;
{$APPTYPE CONSOLE}
uses
  SysUtils, Windows, Messages;
var
  Msg: TMsg;
begin
  SetConsoleTitle('PRD'); // Задание заголовка окна консольного приложения
  repeat
    if PeekMessage(Msg,0,0,0, PM_NOREMOVE) then begin // Проверка, нет ли сообщений
      GetMessage(Msg,0,0,0); // Чтение сообщения
      Writeln(IntToStr(Msg.message)+' '+IntToStr(Msg.wParam)+' '+IntToStr(Msg.lParam)); // Обработка сообщения
    end;
    // Тут будет полезный код
    sleep(1);
  until false; // Тут, возможно, будет реальное условие выхода
end.