Ändern der Schriftfarbe

[Hellcat]

Hi Leute!

Woran kann es liegen, dass sich mein Programm weigert, die Schriftfarbe eines Labels zu ändern?

Delphi-Quellcode:

procedure TForm1.PanHalle01MouseDown(Sender: TObject; Button: TMouseButton;//Panel 1
  Shift: TShiftState; X, Y: Integer);
begin
  if button = mbleft then                   {ändert Farbe wenn Halle sich füllt}
    if Form1.PanHalle01.Color <> $0000FF then{Kontrolle ob Farbe <> Rot}
      PanLab1T.Caption := Zeitangabe;
  if button = mbright then                  {ändert Farbe wenn Halle sich leert}
    if Form1.PanHalle01.Color <> $FFFFFF then{Kontrolle ob Farbe <> Weiß}
      PanLab1T.Caption := Zeitangabe;
  Farbewechseln (Sender as TPanel, Button);
  if PanHalle01.color = clgreen or clmaroon
    then Panlab1T.font.color := clwhite  {Änderung erfolgt nicht}
    else Panlab1T.font.color := clblack; {Änderung erfolgt nicht}
end;