Delphi:

TRowAsyncEvent = procedure (Sender: TObject; EventParams: TStringList; const RowID: string) of object;

C++:

void (Sender: TObject; EventParams: TStringList; const RowID: string) ( TRowAsyncEvent)();