[marcoszorrilla]

Aunque ya te lo ha explicado Seoane, un ejemplo de lo que pides, basado en la propia ayuda de Delphi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Brush.Color := clRed;
  Canvas.Polygon([Point(10, 10), Point(30, 10),
  Point(130, 30), Point(240, 120)]);
end;

Un Saludo.