сжимается изображение

[MetR]

Добрый день

такая вот проблема, сжимается изображение при перемещении по image, изображение храется в bitmap'e, картинку таскаю через copyrect, в чем косяк?

bm:tbitmap;

function hkoef:real;
var
k:real;
begin
k:=form1.imgImage.Width/bm.Width;
hkoef:=round(k*100)/100;
end;

procedure TForm1.sbHorScroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
var
k:real;
pos:integer;
Rect,rect1:Trect;
begin
if hkoef<1 then
   begin
    k:=form1.sbHor.Position/form1.sbHor.Max;
    k:=round(k*100)/100;
    pos:=round(bm.Width*k);
    if (pos+form1.imgImage.Width)<=bm.Width then
      begin
        Rect:=Bounds(0,0,form1.imgImage.Width,form1.imgImage.Height);
        rect1:=Bounds(pos,0,form1.imgImage.Width+pos,form1.imgImage.Height);
        form1.imgImage.Canvas.CopyRect(rect,bm.Canvas,rect1);
      end;
   end;
end;

Пример:

[BDA]

Эх, дали бы весь проект (можно оставить только события, отвечающие за перемещение), а то я даже не знаю, куда приткнуть ваш код, чтобы "потестить".