Графіка Завдання

опрацювати інформацію: стор. 243-261 В.В.Фаронов Delphi Програмування на мові високого рівня.

procedure TForm1.Button2Click(Sender: TObject);
var
pol: array[1..3] of TPoint; // координаты точек треугольника
begin
pol[1].x :=10;
pol[1].y :=50;
pol[2].x := 40;
pol[2].y := 10;
pol[3].x := 70;
pol[3].y := 50;
Form1.Canvas.Polygon(pol);
end;