[HeoH]

Здраствуйте, у меня возникла тут небольшая проблема, сделал скрипт для заточки, и он все правильно, начинает точить, но не останавливается, когда нужно, подскажите что делать.

const
      Name='MyNick';
var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=200;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=false;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('0C 27 10 07 10 00 00 00 00');   -   пакет на выбор самой точки
  SendToServer;
  buf:=hstr('43 4F 00 6D DC 2E 10');  -  пакет, собственно, для самой точки
  SendToServer;
end;
begin

      if pck='' then exit;

      if FromClient and (ConnectName=Name) and (pck=HStr('5A 06 00 00 00')) then begin  -  Социалка "ДА" для начала скрипта.
 
        timer.enabled:=true;
      end;

      if FromClient and (ConnectName=Name) and (pck=HStr('5A 05 00 00 00')) then begin  -  Социалка "Нет" для его завершения.
 
        timer.enabled:=false;
      end;
  if FromClient and (ConnectName=Name) and (pck = HStr('87 07 00 00 00 00 00 00 00 00 00 00 00')) then begin  -  а ето вот тот пакет, который приходит, когда точится на7, ну так вот он приходит, а скрипт почему то не офф.
    timer.enabled:=false;
 
  end;
end.

PS: Пользуюся l2pbx 3.4.1.83