{
Polygon, Point example
This example draws a polygon in the specified shape, and fills it with the color teal.
} 
procedure TForm1.FormActivate(Sender: TObject);
begin
  Canvas.Brush.Color := clTeal;
  Canvas.Polygon([Point(10, 10), Point(30, 10),
    Point(130, 30), Point(240, 120)]);
end; 
