не могу понять почему при закрытии формы не выполняються действия описанные в formclose?

[maloy_ya]

Доброго времени суток форумчане!!вопрос точно глупый но я его все же задам!есть программа которая при нажатии на крестик должна сохранять некотороые значения в файл .ini!вызов и код выглядит вот так:

type
  TForm1 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
------------------------------------------------------------------
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Ini : TiniFile;
begin
  Ini := TiniFile.Create (curdir + '\main.ini');
  ini.WriteString('main', 'auditoria', sedit1.Text);
  ini.WriteString('main', 'gruppa', sedit2.Text);
  Ini.Free; osenki.Free; students.Free;
end;

а вот содержимое файла:
[main]
auditiria=
gruppa=
и получаеться что если вручную записать в файл группу и аудиторию то при formcreate он их без проблем копирует на форму а вот если изменил значение в процессе работы с формой то он не сохраняет нужные значения в файл!! что я делаю не так????

[GunSmoker]

curdir - кто такой и чему равен?

[maloy_ya]

ах да сорри:

procedure TForm1.FormCreate(Sender: TObject);
 var
  ini:tinifile;
 begin
  randomize;
  if FindWindow('Tform1',cap)>0 then halt;
  caption:=cap;
  sskinmanager1.SkinName:='Cold (internal)';
  getdir (0, curdir);

[Sibedir]

А Form1.OnClose равен Form1.FormClose?
и
Какое отношение к sedit1 и sedit2 имеют osenki и students? Вы уверенны, что на момент закрытия окна в sedit1 и sedit2 записаны нужные вам значения?

[maloy_ya]

значения sedit1 b sedit2 в выполнении программы используються для указания в какой аудитории и какая группа студнта из списка students! а вот:
Form1.OnClose равен Form1.FormClose? нет!! а должен быть?? и если да то где это указать??

[Sibedir]

В инспекторе объектов.
Проверте так (по топорному)

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  ...
  ShowMessage ('FormClose');
end;

Если при нажатии на [X] появляется сообщение 'FormClose', то Form1.OnClose = Form1.FormClose.

[maloy_ya]

ээээ.....а можно немного подробнее у меня делфя 2010 установленна??

[Sibedir]

Насколько я помню инспектор объектов есть и в 2010.

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

в инспекторе обьектов, на событие OnClose открыть список и выбрать FormClose.
если вдруг не будет его там, то сделайте двойной щелчек по полю OnClose, появится заготовка обработчика, перенесите код туда.

[maloy_ya]

все заработало!!!спасибо огромное за помощь!!!сорри за нубские вопросы!!