Delphi:

TRowEvent = procedure (Sender: TObject; const RowID: string) of object;

C++:

void (Sender: TObject; const RowID: string) ( TRowEvent)();