[nomen-nescio]

Работает) Но потом пишет ошибку EStackOverflow with message 'Stack Overflow'.
Код следующий:

Код:

procedure TfrmGL.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Res: Integer;
begin
  if not Saved then
  begin
    Res:=Application.MessageBox('Сохранить изменения ?', 'Предупреждение',
           MB_YESNOCANCEL);
    if Res=IDYes then
     begin
      N13Click(nil);
      Saved:=True;
      CanClose:=True;
      Application.Terminate;
     end
    else if Res=IDNo then
     begin
      CanClose:=True;
      Application.Terminate;
     end
    else if Res=IDCancel then
     begin
      CanClose:=False;
      Exit;
     end
  end;
end;

Код:

procedure TfrmGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Close;
end;