В процедуру Free пропиши "timer.free;"
Добавлено через 1 минуту
и L:=0;
Добавлено через 4 минуты
Все понятно... как же я сразу не заметил
Все таки обработку переменной L переставь в обработку пакета 27. Дело в том что L у тебя изначально = 0 а нуль как ты понимаешь меньше 1000000 и таймер у тебя будет включатся как только цикл завершится и флаг Zanyat вернется в значение false
Добавлено через 1 минуту
delphi Код:
begin
if FromServer and (ConnectName=name)and (pck[1]=#$27)and (pck[12]=#$39)then
begin
i:=12;
k:=ReadD(i); //item ID
l:=ReadD(i); //количество адены
//=IntToStr(l);
//=IntToStr(k);
//=TStringList.Create();
//Add(t+': '+m);
//SaveToFile('c:\adena.txt');
//Free;
if (l<100000000) and (Zanyat=false) then
begin
timer.enabled:=true;
x:=1;
Zanyat:=true;
end;
end;
end.