вот так правильно будет? и еще процедуре инит тож интервал стоит
Оффтоп
'delphi' Код:
procedure OnTimer(Sender: TObject);
begin
case step of
1:
begin
buf:=HStr('CF 57 6C 5C 03'); //Удар зверя III
SendToServerEx(Connectname);
Inc(Step);
Timer.interval:=300;
end;
2:
begin
buf:=HStr('CF 57 6C 51 03'); //Бросок зверя I
SendToServerEx(Connectname);
Inc(Step);
Timer.interval:=600;
end;
3:
begin
buf:=HStr('CF 57 6C 39 08'); //Чудовищный шрам III
SendToServerEx(Connectname);
Step:=1;
Timer.enabled:=false;
end;