Delphi:

public class procedure IfAssigned(const ACheck: TObject; const AMsg: string);

C++:

void public: __fastcall IfAssigned(const TObject * ACheck, const String AMsg);