Pause während Schleifendurchlauf

[ChristianR]

Zitat von Bummi:

Häng mal noch ein Application.ProcessMessages dazwischen....

Perfekt! Jetzt läuft es so, wie ich es haben wollte! Danke

Delphi-Quellcode:

if gestrichen[l] = true then
             begin
               TPanel(FindComponent('number'+inttostr(l))).Color := clRed;
               sleep(1000);
               Application.ProcessMessages;
               TPanel(FindComponent('number'+inttostr(l))).Visible := false;
             end;

läuft Einwandfrei