Show confirmation box before to save

procedure Form2_buttonSave_OnClick (Sender: string; var Cancel: boolean);
begin
    if MessageDlg('Your message here.', mtConfirmation, mbYes+mbNo, 0) = mrNo then
    begin
      Cancel := True;
    end;
end;