Delphi:

public procedure Assign(ASource: TObject); override;

C++:

void public: virtual __fastcall Assign(TObject * ASource);