procedure Draw(MyCanvas:TCanvas); override;



Description:


Draw  a line link line shape on the MyCanvas.