вопрос про ADOConnection

[Janger]

В общем, недавно наткнулся вот на такой код:

procedure TMani.con1WillExecute(Connection: TADOConnection;
  var CommandText: WideString; var CursorType: TCursorType;
  var LockType: TADOLockType; var CommandType: TCommandType;
  var ExecuteOptions: TExecuteOptions; var EventStatus: TEventStatus;
  const Command: _Command; const Recordset: _Recordset);
begin
  Memo1.Lines.Append(CommandText);
end;

тут достаточно всё просто. ADOConnection передаёт все запросы которые выполняет в Memo. НО!
Подскажите пожалуйста, можно ли как то определить, с какой именно формы и с какого именно компонента (ADOQuery, ADOTable, ...) был произведён, тот или иной запрос?
К сожалению, я когда копался, ничего особенного не нашёл... Подскажите

[Dvoishnik]

https://theroadtodelphi.wordpress.co...ler-using-ado/