Цвет времени на Label

[krikaved]

Подскажите пожалуйста как сделать, чтобы когда стало 6 часов утра цвет времени был жёлтым, а когда 23 часа - коричневым? У меня почему-то от 0 часов до 2 часов ночи цвет жёлтый!

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label_Time.Caption:=TimeToStr(Time);
if (TimeToStr(Time)>='06:00:00') then
BEGIN
  Label_Time.Font.Color:=clYellow;
END;
//else
if (TimeToStr(Time)>='23:00:00') or (TimeToStr(Time)<='00:00:00') then
BEGIN
  Label_Time.Font.Color:=clMaroon;
END;
end;

[Пепел Феникса]

procedure TForm1.Timer1Timer(Sender: TObject);
var T:TTime;
begin
T:=Time;
Label_Time.Caption:=TimeToStr(Time);
if (T>=StrToTime('06:00:00')) then
BEGIN
  Label_Time.Font.Color:=clYellow;
END;
//else
if (T>=StrToTime('23:00:00')) or (T<=StrToTime('00:00:00')) then
BEGIN
  Label_Time.Font.Color:=clMaroon;
END;
end;

намек ясен?

[krikaved]

Огромное спасибо!!!