多角形を描画する

弟子に聞かれたついでに。

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;

こんだけ。