Delphi:

public procedure PaintTo(ACanvas: TCanvas); virtual;

C++:

void public: virtual __fastcall PaintTo(TCanvas ACanvas);