Некорректная работа таймера

[goodvin1709]

procedure OnTimer(Sender: TObject); 
begin 
    begin 
        case Step of 
        1: 
            begin 
                buf:=HStr('B2 00 57 71 FF 00 32 00 00 00'); 
                SendToServerEx(name);  
                Timer.interval:=600; 
                Inc(Step);    
            end;    
        3: 
            begin 
                buf:=HStr('B2 00 57 71 FF 00 33 00 00 00'); 
                SendToServerEx(name);     
                Step:=1; 
                Timer.enabled:=false; 
            end; 
        end;    
    end; 
end;

Проблема в том, что выполняется только первый Step, а иногда и он не выполняется ( чистый рандом ), второй степ вообще не выполняется.

Вот смотри ты проверяешь значение степ на 1 и отсылаешь пакет и ставишь степ = 2.
если степ 2 то оно нечего не делает.У тебя проверка только на 1 и 3 нужно добавить 2 или сделать так

procedure OnTimer(Sender: TObject); 
begin 
    begin 
        case Step of 
        1: 
            begin 
                buf:=HStr('B2 00 57 71 FF 00 32 00 00 00'); 
                SendToServerEx(name);  
                Timer.interval:=600; 
                Inc(Step);    
            end;   
         2:
            begin 
                buf:=HStr('Второй пакет'); 
                SendToServerEx(name);  
                Timer.interval:=600; 
                Inc(Step); 
              end;       
        3: 
            begin 
                buf:=HStr('B2 00 57 71 FF 00 33 00 00 00'); 
                SendToServerEx(name);     
                Step:=1; 
                Timer.enabled:=false; 
            end; 
        end;    
    end; 
end;