Warte-Fenster anzeigen

[BillieJoe90]

Hallo,
ich würde gerne, während mein Programm etwas macht, dem Benutzer ein kleines Wartefenster anzeigen, wenn es etwas länger dauert. Meine Idee war folgende:

Delphi-Quellcode:

procedure SoUndSo;
begin
  pleaseWait.showAdvice('CD-Laufwerke werden überprüft...');
  refreshDrives;
  pleaseWait.hideAdvice;
end;

Delphi-Quellcode:

procedure TpleaseWait.showAdvice(advice:String);
begin
  lblAdvice.Caption := advice;
  self.Position := poMainFormCenter;
  MainForm.Enabled := false;
  self.show;
end;

procedure TpleaseWait.hideAdvice;
begin
  MainForm.Enabled := true;
  self.hide;
end;

Das funktioniert aber nicht... Das Fenster bekommt man gar nicht zu sehen, auch wenn das Programm einige Sekunden mit refreshDrives beschäftigt ist.

Wie kann ich das Wartefenster so lange an zeigen lassen, wie das Programm für refreshDrives braucht?

Danke schonmal!

Johannes