[joersun]

Сообщение от xakep14

После этого действия нужно интервал прописать,как это сделать?

if FromServer and (pck[1]=#$14) and (ConnectName='3aDpoT') then 
begin
  buf:=HStr(putItemPacket); //кладем итем
  SendToServer;

помоему

if FromServer and (pck[1]=#$14) and (ConnectName='3aDpoT') then 
begin
  buf:=HStr(putItemPacket); //кладем итем
  SendToServer;
  timer.interval:= //сколько тебе надо в мс;
  timer.enabled:= true;