Befehle werden einfach übersprungen

[Dax]

Hast du es mal so probiert?

Delphi-Quellcode:

procedure TMain.ToolButton2Click(Sender: TObject);
begin
StatusBar1.Panels[1].Text := 'Bitte warten...';

ToolButton2.Enabled := False;
ToolButton3.Enabled := False;
ToolButton5.Enabled := False;

Application.ProcessMessages; // <---

Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '111', 'in ', [rfReplaceAll]);
ProgressBar1.StepIt;
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '222', 'das', [rfReplaceAll]);
ProgressBar1.StepIt;
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '333', 'von', [rfReplaceAll]);
ProgressBar1.StepIt;
...
end;