Не растягивается изображение

[Xaker_Two]

есть Image1 в который загружается изображение, затем оно растягивается путем увеличения размера Image1 при включеном параметре Stretch, а далее часть из Image1 пихается на канву Form1 и вот тут почему-то изображение снова становится оригинального размера! Т.е. изображение в Image1 остается растянутым а вот на канву Form1 пишется в оригинальном размере. Что это такое и как от этого избавится??

Растягивание Image1

WA.AutoSize:=True;
WA.Picture.LoadFromFile(PathAnim);
WA.AutoSize:=False;
WA.Stretch:=True;
WA.Height:=WA.Height*Zoom;
WA.Width:=WA.Width*Zoom;
WA.Top:=0;
WA.Left:=0;

Запись куска картинки на канву Form1

RIm:=Rect(0, Step*CFPS, WA.Width, Step*CFPS+Step);
RFo:=Rect(0, 0, Form2.ClientWidth, Form2.ClientHeight);
Form1.Canvas.CopyRect(RFo, WA.Canvas, RIm);