procedure Draw(MyCanvas:TCanvas); virtual;



Description:


Draw  a shape on the MyCanvas.