MessageDlg liefert falsches Ergebnis

[marc1234]

Hallo ,

folgender Code funktioniert bei mir nicht :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  nResult : integer;
begin

  nResult := MessageDlg('Änderungen speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
  case nResult of
    mrYes:    ShowMessage('Yes');
    mrNo:     ShowMessage('No');
    mrCancel: ShowMessage('Cancel');
    else      ShowMessage(IntToStr(nResult));
  end;

end;

Wenn ich im Dialog auf 'Yes' drücke, dann ist der Returnwert 3 (mrAbort) und nicht 6, was mrYes entsprechen würde.
Wenn ich auf 'No' drücke, dann wird 4 (idRetry) zurückgegeben und nicht - wie erwartet - 7 (idNo).
Nur der Cancel-Button funktioniert.

Das Formular ist ein MDIClient.

Kann mir das jemand erklären ?

Gruß
Marcus