procedure Draw(MyCanvas:TCanvas); override;



Description:


Draw  on the MyCanvas.