нашел чето из поиска но не робит.., исправьте хотяб ошибки))
delphi Код:
procedure OnTimer01(Sender: TObject);
begin
case TimerCycle of
1:begin
buf:=HStr('38 31 00 00 00 00 00 00 00'); //1 ïàêåò
sendtoserverex(charname);
Inc(TimerCycle);
timer01.interval:=1500;
end;
2:begin
buf:=HStr('38 32 00 00 00 00 00 00 00'); //2 ïàêåò
sendtoserverex(charname);
Inc(TimerCycle);
timer01.interval:=1500;
end;
3:begin
buf:=HStr('38 33 00 00 00 00 00 00 00'); //3 ïàêåò
sendtoserverex(CharName);
Inc(TimerCycle);
timer01.interval:=1500;
end;
4:begin
buf:=HStr('38 34 00 00 00 00 00 00 00'); //4 ïàêåò
sendtoserverex(charname);
TimerCycle:=1;
timer01.interval:=1500;
end;
end;
end;
этим включаю таймер
delphi Код:
If ItemToEnchant = 0 then Timer01.enabled:=true ;