Hintergrundfarbe eines Objekts stetig ändern

[dadark]

Hallo!
Wir arbeiten in der Schule im Moment mit Delphi, und da es stinkelangweilig ist, muss ichs mir irgendwie interessanter machen :p
Die Idee der letzten Stunde war, die Hintergrundfarbe der ListBox in der wahnsinnig spannende Berechnungen standen, ständig wechseln zu lassen.

Mein Ansatz war (nachdem ich im Internet schon ein wenig recherchiert hatte) in etwa dieser hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  while true do begin
    ListBox1.Color := clRed;
    ListBox1.Refresh;
    sleep(500);
    ListBox1.Color := clBlue;
    ListBox1.Refresh;
    sleep(500);
    Application.ProcessMessages;
  end;
end;

Wenigstens mit Lazarus unter Linux tut das aber nicht (ich konnte es in der Schule in der Version noch nicht ausprobieren, wollte aber zu Hause mal schauen obs klappt), sondern hängt nur.
Seht ihr einen Fehler?

Vielen Dank schonmal
Pascal

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]