[lestatgi]

возникла проблема, мне необходимо что бы timer1 выполнялся каждые 10 секунд interval=10000 и в on timer было следующее

Код:

ShellExecute(Handle, nil, 'cmd.exe', '/c '+ 'net session >c:\1.txt', nil, SW_HIDE);
sleep(1000);
  ls:=TStringList.Create;
  ls.LoadFromFile('c:\1.txt');
  d:=DosToWin(ls.Text);
  ls.Clear;
  ls.Add(d);
  ls.SaveToFile('c:\1.txt');
  ls.Free;

все работает но проблема в следующем программа весит в трее и постепенно кушает память если долго работает то система начинает сильно тормазить. как этого избежать?