[4kusNick]

Ну, во-первых, не Application.ProgressMessages, а Application.ProcessMessages, но тогда уж лучше юзать эту процедурку:

Код:

procedure Delay(Wnd: HWND = 0);
var
  Msg: TMsg;
begin
  while True do
  begin
    if not PeekMessage(Msg,Wnd,0,0,PM_REMOVE) then Break;
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

А как именно обрабатывать процесс ответа - я не смогу подсказать, т.к. из БД работал только с SQLite и там такого не реализовывал...