Das "Vorausdenken" in einer Procedure verhindern

[Martin K]

So müsste es gehen. Sichwort: Update;
Da das Label erst am Ende der Prozedur gezeichnet wird.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x, y: Integer;
begin
  Label1.Caption := 'Eins';
  Label1.Update;
  sleep(750);
  Label2.Caption := 'Zwei';
  Label2.Update;
  sleep(750);
  Label3.Caption := 'Drei';
  Label3.Update;
  sleep(750);
  Label4.Caption := 'Vier';
end;