1:
2:
3:
4:
5:

  if MessageDlg('Test Abfrage, bitte wählen',
  mtConfirmation, [mbAbort, mbYes, mbNo], 0) = mrYes then
  begin

  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
 ClickedBtn: Word;
begin
  ClickedBtn := MessageDlg('Test Abfrage, bitte wählen', mtConfirmation, [mbAbort, mbYes, mbNo], 0);
  if ClickedBtn = id_yes then
   showmessage('Yes.');
  if ClickedBtn = id_no then
   showmessage('No.');
  if ClickedBtn = id_abort then
   showmessage('Abort.');					

1:
2:
3:
4:
5:
6:
7:
8:

Case MessageDlg ('Test Abfrage, bitte wählen', mtConfirmation, [mbAbort, mbYes, mbNo], 0) of
    mrYes:
      ; // Hier der Code bei Yes
    mrNo: 
      ; // Hier der Code bei No
    mrCancel:
      ; // Hier der Code bei Cancel
  End;