Message Dialog

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageDlg('Sure?',mtConfirmation,[mbyes,mbno],0)=mrYes then
    begin
      ShowMessage('Yes');
      exit;
    end else;
      ShowMessage('No');
      Abort;
end;