Delphi:

TSessionProc = reference to procedure (ASession: TObject) of Object ;

C++:

void reference to procedure (ASession: TObject) of Object TSessionProc;