Befehle werden einfach übersprungen

[Äfan]

Hi,

Ich habe ein Problem mit meinem Prog.

Delphi-Quellcode:

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

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

 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;

Wenn ich jetzt auf den ToolButton2 klicke, startet es, aber erst ab Memo1.Lines... Also alles davor wird einfach übersprungen ! Wenn ich jetzt aber zwischen ToolButton5... und Memo1..., ShowMessage('Hallo'); setze, werden die oberen befehle nicht übersprungen. Warum is das so und wie kann ich alles ausführen, ohne das ich ne meldung anzeigen muss ?

MFG