Problem mit CreateMessageDialog?

[Alex_ITA01]

Hallo erstmal,
ich erstelle mir mit CreateMessageDialog mein eigenen Dialog und ändere gegebenfalls die Beschriftung einzelner Buttons. Dieser Dialog wird aufgerufen aus einer Komponente im "Destroy". Wenn sich etwas geändert hat, dann soll der Benutzer sagen ob er speichern will oder nicht.

Codeauszug:

Delphi-Quellcode:

  Form   := CreateMessageDialog(Msg, DlgType, Buttons);
  try
    if not Assigned(Form) then
    begin
      exit;
    end;
    with Form do
    try
      //..Code (Beschriftung ändern...
      Result := ShowModal;
    finally
      Free;
    end;
  except
    on E: EReadError do
    begin
      MessageBeep(MB_ICONASTERISK);
    end;
  end;

Diese Funktion gibt ein Integer zurück und wird auf "mrYes" geprüft.
Manchmal (warum auch immer), kommt er in die Exception EReadError und sagt Stream-Lesefehler.
Mache ich da etwas grundlegendes falsch?
Wäre nett wenn ihr ein Tip hättet...
MFG
Alex