Помогите со скриптом

[KrazyKeNNy]

Я делаю скрипт, который покупает у нпц пушку, точит ее, затачивает до нужного уровня, либо ломает и покупает заного. Другие скрипты не подойдут, т.к на моем сервере пакеты меняются каждые пол часа. Сделайте пожалуйста набросок скрипта, ведь он не сложный.
На заметку:
выбрать заточку: 72 F5 99 38 40 00 00 00 00
Заточить: 3C 44 1F 34 40 00 00 00 00
Купить пушку: 3C 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 31 00 30 00 30 00 30 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 31 00 00 00

И еще. Не до конца разобрался в таймерах.

var timer01:ttimer;
procedure Init; 
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=2100;
end;

procedure OnTimer01(Sender: TObject);
begin
buf:=#$4A;  
WriteD(0);  
WriteD(10);  
WriteS('');          
WriteS('ololo');
SendToClient; 
end;


//При поступлении пакета
begin
  if fromclient and (pck[1]=#$18) and (pck[2]=#$0C)  then timer01.enabled:=true;
end.

Почему таймер не работает?