Построение треугольника. Delphi 7

[savraska]

Пользователь задает координаты вершин А,В,С. Изобразить треугольник с подписями вершин. У меня получилось следующее:
procedure TForm1.Button3Click(Sender: TObject);
var
pol: array[1..3] of TPoint; // координаты точек треугольника

begin
pol[1].x:=strtoint(edit1.text);
pol[1].y:=strtoint(edit2.text);
pol[2].x:=strtoint(edit3.text);
pol[2].y:=strtoint(edit4.text);
pol[3].x:=strtoint(edit5.text);
pol[3].Y:=strtoint(edit6.text);

paintbox1.Canvas.Polygon(pol);

end;
Проблема в том что начало координат в Paintbox размещено в левом верхнем углу.