MessageBox mit Ja, Nein, Alle Buttons

[elundril]

warum nicht gleich mit:

Delphi-Quellcode:

begin
  case MessageDlg('Magst du Tiere?',mtConfirmation,[mbYes,mbNo,mbAll],0) of
    mbYes: Showmessage('Du magst Hunde, stimmts?');
    mbNo: Showmessage('Ich auch nicht.');
    mbAll: Showmessage('Ein richtiger Tierfreund!');
  end;
end;

lg el