MessageDialog-Text nach Erzeugen ändern

[ThorZten]

Guten Abend!
Gibt es eine Möglichkeit, einen MessageDialog-Text zu ändern, NACHDEM die Nachricht bereits erzeugt wurde?
Bisher habe ich folgendes:

Code:

function ErzeugeNachrichtenfenster(const aMsg: string): TForm;
begin
  Result := CreateMessageDialog(aMsg, mtInformation, []);
  Result.BorderIcons := [];
  Result.Height := 80;
  Result.FormStyle := fsStayOnTop;
  Result.Show;
  Application.ProcessMessages;
end;



procedure TFoMain.FormShow(Sender: TObject);
var
  Dlg : TForm;
begin
  // Warte-Fenster anzeigen
  Dlg := ErzeugeNachrichtenfenster('Lade Personendaten vom Server...');

  try
    {
     (Hier werden verschiedene Dateien herunter geladen.)
      -> Ich möchte darum dem Nutzer mitteilen, welche das sind
     und würde dazu gern den Text der Nachricht merhfach ändern.
    }
  finally

  // Warte-Fenster schließen und freigeben
  Dlg.Release;
end;

Wie oben zu sehen wird eine Message erzeugt und ausgegeben. Ich möchte während der Laufzeit dann den Text dieser Nachricht ändern. Ist das möglich oder muss ich mir selbst ein Nachrichtenfenster über ein eigenes Formular basteln?

Gruß,
Thorsten