弟子に聞かれたついでに。
procedure TForm1.Button1Click(Sender: TObject); var tri: array of TPoint; begin Self.Canvas.Brush.Color := clBlue; SetLength(tri, 3); tri[0] := Point(50, 100); tri[1] := Point(150, 90); tri[2] := Point(130, 50); Self.Canvas.Polygon(tri); end;