var Res: Integer; begin Res := MessageDlg('Vil du afslutte?', mtConfirmation, [MBYES,MBNO], 0); case Res of ID_YES: ; ID_NO: Abort; end;