procedure Draw(MyCanvas:TCanvas); override;



Description:


Draw  a image shape on the MyCanvas.