[Deffol]

вот так правильно будет? и еще процедуре инит тож интервал стоит
Оффтоп

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;