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;