[Kirson]

const
zakup='23 30 00 30 00 00 00';
zatocsh='19 4C 9D 2D 10 00 00 00 00';
var
i,m:integer;
Timer01: TTimer;
UseItem: string;

procedure Init;
begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=true; //начальное положение включен(true)/выключен(false)
   Timer01.interval:=800; //интервал(в милисекундах) как часто таймер срабатывает
end;

procedure OnTimer01(Sender: TObject);
begin
        //buf:=HStr(zakup);   //закупка
        buf:=HStr(zatocsh);        //заточка
        SendToServer;
end;
begin
if FromServer and (pck[1]+pck[2]=#$62#$28) then
       begin
        buf:=HStr(zakup);
        SendToServer;
        i:=0;
       end;

     if FromServer and (pck[1]+pck[2]+pck[4]=#$21#$01#$01) then  begin
       UseItem:=pck[8]+pck[9]+pck[10]+pck[11];
       buf:=#$19+UseItem+#$00#$00#$00#$00;
       SendToServer;
       end;

    if FromServer and (pck[1]+pck[2]=#$62#$26) then  i:=i+1;
    if i=23 then begin
       buf:=HStr(UseItem);
       SendToServer;
       end;

end.

Все работает ток теперь пуху не точит (таимер не работает)
разобраться не могу

Добавлено через 19 часов 5 минут
ну кто мне поможет с таимером разобраться?