Событие FormClose!

[$T@LKER]

Доброго все времени суток! Можете пожалуйста объяснить почему на событие закрытие формы(OnClose - при нажатии на крестик в верхнем углу окна программы) кода я вписывай код(смотрите ниже) программа отказываеться компилироваться!!!

var
f : TStrings;
begin

    //збереження розмірів стовпців таблці Продажа
    f := TStringList.Create();
    f.LoadFromFile('C:\Lider\cols_size\A_cols_size.txt');
    f.Clear;

          f.Insert(0,inttostr(cxKod.Width));
          f.Insert(1,inttostr(cxCategory.Width));
          f.Insert(2,inttostr(cxRooms.Width));
          f.Insert(3,inttostr(cxPlan.Width));
          f.Insert(4,inttostr(cxCena.Width));
          f.Insert(5,inttostr(cxCenaM.Width));
          f.Insert(6,inttostr(cxValuta.Width));
          f.Insert(7,inttostr(cxDistrict.Width));
          f.Insert(8,inttostr(cxStreet.Width));
          f.Insert(9,inttostr(cxHouse.Width));
          f.Insert(10,inttostr(cxGula.Width));
          f.Insert(11,inttostr(cxKuhnia.Width));
          f.Insert(12,inttostr(cxEtag.Width));
          f.Insert(13,inttostr(cxEtagnost.Width));
          f.Insert(14,inttostr(cxMaterial.Width));
          f.Insert(15,inttostr(cxPhone.Width));
          f.Insert(16,inttostr(cxTV.Width));
          f.Insert(17,inttostr(cxHolod.Width));
          f.Insert(18,inttostr(cxMebel.Width));
          f.Insert(19,inttostr(cxPredoplata.Width));
          f.Insert(20,inttostr(cxKPhone.Width));
          f.Insert(21,inttostr(cxText.Width));
          f.Insert(22,inttostr(cxDate.Width));

    f.SaveToFile('C:\Lider\cols_size\A_cols_size.txt');
    f.Free;


with datamodule2 do
begin
with DataQuery do
begin
Filter := '';
Filtered := false;
//Close;
     end;
end;

close;

end;

Заранее спасибо!

[Stilet]

Да мало ли...
Окружи этот код директивами {$o-}...{$o+}
Будет компилироваться?

[fenix-elite]

Ты хоть ошибку напиши что ли....... :/

[$T@LKER]

Очень странно!!! Ни чё не делал тока-что пробовал и все само собой заработало!!!
А раньше компилировалось то прога но когда закрывал её крестиком выскакивала ошибка с указанием какого-то HEX-адреса!

Вопрос в догонку - есть ли разница между событиями формы OnClose и OnCloseQuery ?

[W0LF]

Если это 2 разных события, то как вы думаете: есть ли между ними разница?
Отвечу: конечно есть!
А вообще: одна тема - один вопрос.