Planeten drehen

[Namenloser]

Mal mit Application.ProcessMessages probiert?

Delphi-Quellcode:

for x := 1 to  240 do
begin
  Image1.Picture := Planet[x];
  Application.ProcessMessages;
  sleep(20);
end;