Не работает написанная мною процедура градиент. ВНИМАНИЕ: МОЙ ПРЕКТ НАПИСАН С ИСПОЛЬЗОВАНИЕМ ALPHACONTROLS

[hjkdhgu]

procedure gradient(fromcolor,tocolor:tcolor; size,rotation:integer);
var r,g,b,r1,g1,b1,r2,g2,b2:byte; i,startpos:integer; gbuf: tbitmap;
begin
r1:=getrvalue(fromcolor);
g1:=getgvalue(fromcolor);
b1:=getbvalue(fromcolor);
r2:=getrvalue(tocolor);
g2:=getgvalue(tocolor);
b2:=getbvalue(tocolor);

r:=r1;
g:=g1;
b:=b1;

gbuf:=tbitmap.Create; gbuf.Height:=1000; gbuf.Width:=1000;

for i := 0 to 1000 do begin
if i mod (size-round(size/10))=0 then begin

if (r1<>r2)and(r<>r2) then
if r1>r2 then r:=r-1 else r:=r+1;

if (g1<>g2)and(g<>g2) then
if g1>g2 then g:=g-1 else g:=g+1;

if (b1<>b2)and(b<>b2) then
if b1>b2 then b:=b-1 else b:=b+1;

end;




with gbuf.Canvas do begin
pen.color:=rgb(r,g,b);
if rotation=20 then startpos:=0 else startpos:=-5;

moveto(i,startpos);
lineto(i,rotation);


moveto(i,10);
lineto(i,10);


end;
end;

with form1.Image1 do begin
Canvas.Brush.Bitmap:=gbuf;
Canvas.floodfill(x1,y1,canvas.pixel s[x1,y1], fssurface);
end;

gbuf.Free;
end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\

а вот так процедура вызывается

gradient(pencolor.ColorValue,brushc olor.colorvalue,
round(sqrt(sqr(x1-x)+sqr(y1-y))),abs(x1-x));

pencolor.ColorValue и brushcolor.colorvalue, это alpha controls
x1,y1 координаты первой точки из события image1.mousedown
x,y из события image1.mousemove

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\
не ругайте сильно что я нуб, начал программировать 2 мес. назад.
лучше укажите на мои ошибки