Textfarbe faden

[Thorben86]

Also theoretisch klappt der code, nur hab ich das problem, dass wenn das Label am anfang eine Farbe wie z.b. clBtnFace oder andere Formen davon, ausgenommen den werten wie clBlue usw. hat, dass das direkt schwarz wird. Sonst fadet der.

Delphi-Quellcode:

procedure Tf_strasse.Timer1Timer(Sender: TObject);
begin
if(label3.color<>$00000000) then
Label3.Color := Label3.Color - (1 shl 16) - (1 shl 8) - 1
else
timer1.enabled:=false;
end;


procedure Tf_strasse.FormCreate(Sender: TObject);
begin
//label3.color:= rgb(212,208,200);
 end;

Wenn ich den Teil aktiviere, der beim starten der Form ausgeführt wird, klappt es, obwohl das genau der Farbwert ist, den clBtnFace hat. Kann mir jemand sagen warum der dass macht?