Эффект медленного затухания для картинки

procedure TForm1.btn1Click(Sender: TObject);
var   x,y,fc,i:Integer;
      r,g,b,r1,g1,b1:Byte;
      map:TBitmap;
begin
map:=TBitmap.Create;  map.Width:=img1.Width;  map.Height:=img1.Height;
map.Canvas.CopyRect(Rect(0,0,map.Width,map.Height),img1.Canvas,rect(0,0,img1.Width,img1.Height));
fc:=form1.Color;
r1:=GetRValue(fc); b1:=GetBValue(fc); g1:=GetGValue(fc);
  for i:=0 to 5 do begin
  for x:=0 to map.Width do for y:=0 to map.Height do
    begin
      fc:=map.Canvas.Pixels[x,y];
      r:=GetRValue(fc); b:=GetBValue(fc); g:=GetGValue(fc);
      if r>r1 then r:=r-Abs(r-r1) div 1;
      if r<r1 then r:=r+Abs(r-r1) div 2;
      if g>g1 then g:=g-Abs(g-g1) div 2;
      if g<g1 then g:=g+Abs(g-g1) div 2;
      if b>b1 then b:=b-Abs(b-b1) div 2;
      if b<b1 then b:=b+Abs(b-b1) div 2;
      map.Canvas.Pixels[x,y]:=RGB(r,g,b);
    end;
  img1.Canvas.CopyRect(Rect(0,0,img1.Width,img1.Height),map.Canvas,rect(0,0,map.Width,map.Height));
  Sleep(20);
  img1.Update;
  end;
map.Free;
end;