Искажение координат при рисовании многоугольника на канве

[temeah]

Доброго времени суток!

Есть такая проблема: рисую многоугольник функцией polygon на image1.canvas.bitmap, вершины в TPoint задаю сам. В итоге все вершины искажаются, но пропорционально(изображение многоугольника не совпадает с предполагаемым). Приходится искать этот "коэффициент искажения" и множить на него мои начальные координаты. Чем может это быть вызвано?

[3D Hunter]

При рисовании явно указывайте канву: не просто Canvas.Draw(), а конкретно Image1.Canvas.Draw(). Возможно, в имадже стоит Stretch=true, это искажает пропорции.

[temeah]

действительно было Stretch=true, поменял на false - ничего не изменилось. А путь я точно задал:

procedure TForm1.FormCreate(Sender: TObject);
var AP: array[0..5] of tpoint;
begin
form1.Width:=screen.Width;
form1.Height:=screen.Height;
image1.Width:=screen.Width;
image1.Height:=screen.Width;
  Bitmap:=TBitmap.Create;
  Bitmap.LoadfromFile('main.bmp');

  With Image1.Picture.bitmap do
  Begin
    Width:=Bitmap.Width;
    height:=Bitmap.Height;
    Palette:=Bitmap.Palette;
    Canvas.draw(0,0,bitmap);
    Refresh;
  end;
  AP [0].X := 996 ;    AP [0].Y :=411 ;
  AP [1].X := 1029;    AP [1].Y := 388 ;
  AP [2].X := 1080;    AP [2].Y :=372 ;
  AP [3].X := 1126 ;   AP [3].Y :=430;
  AP [4].X := 1066;    AP [4].Y := 469;
  AP [5].X := 991;     AP [5].Y := 458;
  image1.Canvas.brush.Color:=clred;
  image1.canvas.pen.Color:=clred;
  image1.Canvas.Pen.Width:=5;
  image1.Picture.bitmap.Canvas.Polygon(ap);
  bitmap.Free;

[3D Hunter]

procedure TForm2.FormCreate(Sender: TObject);
var
  AP:array[0..5] of TPoint;
begin
  AP[0].X:=996;
  AP[0].Y:=411;

  AP[1].X:=1029;
  AP[1].Y:=388;

  AP[2].X:=1080;
  AP[2].Y:=372;

  AP[3].X:=1126;
  AP[3].Y:=430;

  AP[4].X:=1066;
  AP[4].Y:=469;

  AP[5].X:=991;
  AP[5].Y:=458;

  Image1.Width:=Screen.Width;
  Image1.Height:=Screen.Height;
  with Image1 do
  begin
    Picture.LoadFromFile('D:\main.bmp');
    Canvas.Pen.Color:=clRed;
    Canvas.Brush.Color:=clRed;
    Picture.Bitmap.Canvas.Polygon(AP);
  end;
end;

[temeah]

Проблема была в размере фотографии. Она была слишком большая и не помещалась в холст.

Спасибо тем кто помогал.