[delpi12]

у меня при закрытие формы появляется сообшения но при клике на mrcancel форма в серевно закрывается как сделат чтобы не закрылос окна

у меня код такое

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 var
  buttonSelected : Integer;
begin
 MessageDLG('Save to listbox !!!',mtConfirmation,[mbYes,mbNo,mbCancel],0);
  if buttonSelected = mrYes then
   begin
   strm := TFileStream.Create('MyList.DAT', fmCreate);
  strm.WriteComponent(ListBox1);
  strm.Free;
   end;
  if buttonSelected = mrcancel then
 
end;

Админ: недельный бан за несоблюдение правил оформления кода.

ПС. За это время неплохо бы и русский подучить.