Problem mit MsgDialog

[semo]

also bei mir funzt es sowohl it QDialogs als auch mit Dialogs.....
habe das wie folgt bei mir getestet:

Code:

procedure TMainForm.Button1Click(Sender: TObject);
var
  tmp: Integer;
begin
 tmp := MessageDlg('test', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
    case tmp of
      mrYes    : ShowMessage('Yes');
      mrCancel : ShowMessage('Cancel');
    else ShowMessage('else');;
    end;
end;