1:
2:

//Beispiel
Label1.Color := RGB(255,0,0); //<-- mach das Label rot					

1:
2:
3:
4:

For i := 0 to SchrittCount-1 do begin
  SetNextColorShade;
  Application.ProcessMessages; {wichtig, sonst siehst du nix}
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function GetBlue(Color: TColor):Byte;
begin
  Result:=(Integer(Color) shl 8) shr 24;
end;

function GetGreen(Color: TColor):Byte;
begin
  Result:=(Integer(Color) shl 16) shr 24;
end;

function GetRed(Color: TColor):Byte;
begin
  Result:=(Integer(Color) shl 24) shr 24;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

//Beispiel: Form färbt sich langsam rot, wenn man auf den Knopf drückt
procedure TForm1.Button1Click(Sender: TObject);
var i,j,x,r: integer;
begin
  x := 0;
  for i := 0 to (255 div 16)-1 do begin
     inc (x, 16);
     r := -255 + x;
     Form1.Color := RGB(255+r,0,0);
     for j := 0 to 100000 do Application.ProcessMessages; //<--- Delay, damit man was sieht!!! Je höher man die obere Grenze setzt, desto langsamer ist das fading
  end;
end;