Переполнение стека

[DeKot]

В процессе разработки одной программы появилась ошибка :

В конечном итоге оказалось , что код

var
  Form1: TForm1;
   FName: string;
   f: TStringList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  f:= TStringList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject); // загрузить файл
begin
  if OpenDialog1.Execute then
  begin
     FName:= OpenDialog1.FileName;
     f.LoadFromFile(FName);
     Memo1.Lines:= f;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); // закрытие программы
begin
  Close;
end;

end.

вызывает эту ошибку, а именно процедура TForm1.FormClose - закрытие программы любым "виндоусовским" способом.
Но если я на форму добавлю кнопку "Закрыть программу" (Button2), то в почти аналогичном коде переполнения стека нет, ошибки нет:

var
  Form1: TForm1;
   FName: string;
   f: TStringList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  f:= TStringList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject); // загрузить файл
begin
  if OpenDialog1.Execute then
  begin
     FName:= OpenDialog1.FileName;
     f.LoadFromFile(FName);
     Memo1.Lines:= f;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject); // закрыть программу
begin
  Close;
end;

end.

Так все таки, почему переполнение стека?

[Человек_Борща]

var
  Form1: TForm1;
   FName: string;
   f: TStringList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  f:= TStringList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject); // загрузить файл
begin
  if OpenDialog1.Execute then
  begin
     FName:= OpenDialog1.FileName;
     f.LoadFromFile(FName);
     Memo1.Lines:= f;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject); // закрыть программу
begin
  {
   А освобождать f кто будет? 
  }  
Close;
end;

Вы создаёте список строк(глобальная переменная у вас оно), создаёте его в FormCreate и там же забиваете строками.
Но кто его освободит? Сам о себе он не позаботится.

В OnDestroy

FreeAndNil(f);

[Пепел Феникса]

в первом случае рекурсия, так как вы из события OnClose вызываете Close, который вызывает OnClose, и тд.

Человек_Борща, поправка верна, но в данном случае она все равно помрет.

[DeKot]

Человек_Борща - первое, что пробовал - это, конечно < f. Free>, эффект тот же.

Но кто его освободит?

Насколько я знаю (может и ошибаюсь) Delphi при корректном закрытии приложения сама (Дельфа - она) очищает память, стеки и т. п. Здесь другой случай.
Пепел Феникса - т.е. я так понимаю, что если применять метод TForm1.FormClose ( для формы, а значит и для всей проги, если она однооконная), то в процедуре надо выполнять какие то действия, связанные с програмными параметрами (например - сохранить значения в файл, или отключить устройство перед закрытием).
В принципе, ответ на свой вопрос я получил - ключевое слово "рекурсия".
Не думал (не знал), что метод OnClose - Close вызывает бесконечную рекурсию.
Всем СПАСИБО!

[Пепел Феникса]

Пепел Феникса - т.е. я так понимаю, что если применять метод TForm1.FormClose ( для формы, а значит и для всей проги, если она однооконная), то в процедуре выполнять какие то действия, связанные с програмными параметрами (например - сохранить значения в файл, или отключить устройство перед закрытием).

ну обычно это делают в OnDestroy, но тут нет разницы для главной формы.
я вообще люблю делать модули независимыми(нет глоб переменных, только поля, все что надо создается/грузиться в OnCreate или по ходу работы с формой этой, а в OnDestroy уничтожаеться/сохраняеться)

Не думал (не знал), что метод OnClose - Close вызывает бесконечную рекурсию.

бывает)
OnClose возникает именно после Close(ну не только поидее), потому у вас непрямая рекурсия.