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

procedure xxx;
var
  dlgErgebnis : Word;
begin
  dlgErgebnis := Messagedlg; // Hier muss natürlich Dein Dialog stehen
  // Mit dem Ergebnis kannst Du jetzt in dieser Prozedur machen, was Du willst.
  // Brauchst Du das auch in anderen Prozeduren, musst Du die Variable natürlich global definieren
end;					

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

case messagedlg of // Hier muss natürlich Dein Dialog stehen
  mrYes : begin
    // Anweisungen soviel, wie Du willst
  end;
  mrNo  : begin
    // Anweisungen soviel, wie Du willst
  end;
end;