MessageDlg-Rückgabeproblem

[Airblader]

Hi
Ich habe mal wieder ein kleines Problem..

Mit folgendem Code (das wichtigste steht hier aber nur) will ich den gedrückten Button eines MessageDlg's utnerscheiden:

Delphi-Quellcode:

procedure TForm2.XXX(Sender: TObject);
var
        Err: TMsgDlgBtn;
begin
        if trim(Form2.LabeledEdit1.Text) = '' then
        begin
                Err := MessageDlg('Bitte geben sie einen Namen ein!', mtWarning, [mbOk,mbAbort], 0);
                
                case Err of
                        mrOk:
                                begin
                                        Form2.LabeledEdit1.Focused := true;
                                end;
                        mrAbort:
                                begin
                                        Form2.Close;
                                end;
                end;
        end; 
end;

Allerdings sagt er mir, dass MessageDlg einen Integer zurückgeben würde (Erfolgreich/Nicht erfolgreich )
Die Delphi-Hilfe spuckt mir aber aus, dass der Rückgabe Wert den Typ TMsgDlgBtn hat und den gedrückten Button enthält...

Kann mir bitte jemand weiterhelfen?

air