Тип события запроса названия объекта у пользовательской программы
TObjectNameEvent = procedure(Sender: TObject; lCode,oIndex: integer; var oName: String) of object;
Sender
oName