procedure Draw(MyCanvas:TCanvas); override;



Description:


Draw  a rectangle shape on the MyCanvas.