MessageBox при закрытии формы

procedure TForm1.N4Click(Sender: TObject);
var
  Res : Integer;
  a:TStringList;
begin
  Res := MessageBox(
    Self.Handle
    , PChar('Вы хотите сохранить изменения перед выходом?')
    , PChar('111')
    , MB_YESNOCANCEL + MB_ICONINFORMATION + MB_APPLMODAL
  );
 
  case Res of
    IDYES : begin
    if SaveDialog1.Execute then
 begin
  a:=TStringList.Create;
 
  a.add(edit1.Text);
  a.add(edit2.Text);
  a.add(edit3.Text);
  a.add(edit4.Text);
  a.add(edit5.Text);
  a.SavetoFile(savedialog1.fileName);
 
  Form1.Close;
     end;
    end;
    IDNO : begin
      Form1.Close;
    end;
    IDCANCEL : begin
      Exit;
    end;
  end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Res : Integer;
  a:TStringList;
begin
  Res := MessageBox(
    Self.Handle
    , PChar('Вы хотите сохранить изменения перед выходом?')
    , PChar('111')
    , MB_YESNOCANCEL + MB_ICONINFORMATION + MB_APPLMODAL
  );
 
  case Res of
    IDYES : begin
    if SaveDialog1.Execute then
 begin
  a:=TStringList.Create;
 
  a.add(edit1.Text);
  a.add(edit2.Text);
  a.add(edit3.Text);
  a.add(edit4.Text);
  a.add(edit5.Text);
  a.SavetoFile(savedialog1.fileName);
 
  CanClose := True;
     end;
    end;
    IDNO : begin
      CanClose := True;
    end;
    IDCANCEL : begin
      CanClose := False;
    end;
  end;

procedure TForm1.N4Click(Sender: TObject);
begin
  Close;
end;