
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.canvas.MoveTo(100, 100);
form1.canvas.LineTo(200, 200);
form1.canvas.LineTo( 0, 200);
form1.canvas.LineTo(100, 100);
end;
Form1.Canvas.Polygon([Point(10,10),Point(200,200),Point(60,90)]);