[YssurTiger]

const
      Name='DeskJet'; //без этого не останавливал timer.enabled:=false;

var
  timer:TTimer;

procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=1000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;

procedure Free;
begin
  timer.Free;
end;

procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('0C 63 01 09 10 00 00 00 00 '); //пакет открытия заточки
  SendToServer;
  buf:=hstr('43 4F 00 2F C4 18 10 '); //пакет оружия
  SendToServer;
end;

begin
  if FromServer and (ConnectName=Name) and (pck = HStr('87 14 00 00 00 00 00 00 00 00 00 00 00'))  then begin ///////пакет на всех грациях одинаковый...14 ур заточки.измеряется в байтах..
    timer.enabled:=false;
  end;
end.

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