Was stimmt an dieser Appliacation.Messagebox nicht?

[Daniel B]

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
begin
  if Application.MessageBox('Wollen sie wirklich beenden?','Abfrage', 4 + 32) = IDYES then
    ShowMessage('Ja')
  else
    ShowMessage('Nein');
end;