Wie kann man eine Farbe langsam ´ändern

[Chris1986]

Hab gerade das probiert:

Delphi-Quellcode:

procedure TForm1.fade;
var rot,
    gruen: byte;
begin
  gruen := 255;
  for rot := 0 to 255  do
  begin
    Form1.Color := rgb(rot,gruen,0);
    dec(gruen);
    delay(2);
  end;
end;

Funktioniert dank Luckies delay Prozedur prima

[Edit=Christian] Ups, es ist ja ne Prozedur [/Edit]
MfG
Christian