[AlexSku]

У Агента есть событие OnRequestComplete. Вот пример из книжки:

Код:

procedure TForm1.Agent1RequestComplete(Sender: TObject;
  const Request: IDispatch);
var
  rq:= IAgentCtlRequest;
begin
  Request.QueryInterface(IID_IAgentCtlRequest, rq);
  StatusBar1.Panels[0].Text:=
    'Запрос с ID = ' + IntToStr(rq.ID) + ' завершён';
end;