Delphi:

TCellDataEvent = procedure (Sender: TObject; const Row, Col: Integer; var CellText: string) of object;

C++:

void (Sender: TObject; const Row, Col: Integer; var CellText: string) ( TCellDataEvent)();