[YoraG]

В общем проблема в другом, этот проект тестовый, а в моем проекте выявил такую проблему.
Тут память жрет:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
   begin
   if ComboBox8.Text='Новая почта' then
   if FileExists(ExtractFilePath(ParamStr(0))+'\Param\novpoch.lru') then
      begin
      действие
      end;
   end;

А так нет:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
   begin
   if ComboBox8.Text='Новая почта' then
 //if FileExists(ExtractFilePath(ParamStr(0))+'\Param\novpoch.lru') then
      begin
      действие
      end;
   end;

что тут можно освободить???