morgens mittags abends

[nahpets]

Hallo,

wie wär's denn damit?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Color := IfThen(Frac(Now) < 0.33,clYellow,IfThen(Frac(Now) < 0.66,clBlue,clRed));
end;

(Die Unit Math muss eingebunden werden.)