if MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin { Put code here to do whatever you are confirming that the user wants to do } end;