Проблема с TColor и Extended

var a1,a2,a3,a4,a5,a6,a7,a8,j,i,y,x:integer;
    f:extended;
begin
     for i:=1 to image1.Picture.Bitmap.Width-1 do
         for j:=1 to image1.Picture.Bitmap.Height-1 do
         begin
             a1:=image1.Canvas.Pixels[i-1,j-1];
             a2:=image1.Canvas.Pixels[i,j-1];
             a3:=image1.Canvas.Pixels[i+1,j-1];
             a4:=image1.Canvas.Pixels[i+1,j];
             a5:=image1.Canvas.Pixels[i+1,j+1];
             a6:=image1.Canvas.Pixels[i,j+1];
             a7:=image1.Canvas.Pixels[i-1,j+1];
             a8:=image1.Canvas.Pixels[i-1,j];

             x:=(a3+2*a4+a5)-(a1+2*a8+a7);
             y:=(a1+2*a2+a3)-(a7+2*a6+a5);

             [COLOR="Red"]f:=sqrt(sqr(x)+sqr(y));[/COLOR]
             
             if f>255 then f:=255;
             image3.Canvas.Pixels[i,j]:=trunc(f);
         end;
end;

f:=sqrt(sqr(x)+sqr(y));