ЛАБОРАТОРНАЯ РАБОТА 2

Работа с графикой в среде Lazarus.
Задача 2: Создать программу рисующую треугольник, координаты вершин которого можно изменять через пользовательский интерфейс.

Задача 1: Нарисовать в объекте TImage треугольник, одна сторона которого черная, другая красная и третья - синяя.

procedure TForm1.Button1Click(Sender: TObject);
var x1,y1,x2,y2,x3,y3:integer;
begin
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
x1:=StrToInt(Edit1.Text);
y1:=StrToInt(Edit2.Text);
x2:=StrToInt(Edit3.Text);
y2:=StrToInt(Edit4.Text);
x3:=StrToInt(Edit5.Text);
y3:=StrToInt(Edit6.Text);
Image1.Canvas.Pen.Color:= clBlue ;

Image1.Canvas.MoveTo(x1,y1);
Image1.Canvas.LineTo(x2,y2);
Image1.Canvas.Pen.Color:= clred ;

Image1.Canvas.LineTo(x3,y3);
Image1.Canvas.Pen.Color:= clGreen ;

Image1.Canvas.LineTo(x1,y1);

end;