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

[Deffol]

Приветствую всех.
Давненько не писал скрипты, опять вернулся к этому и сразу столкнулся с проблемой, и, я не понимаю в чем проблема.
Вот собственно скрипт: ( сори забыл как делфи код делать )

PHP код:

var
    Timer:TTimer;
    Step:byte; 
    name:string;
procedure Init;
begin
    Step:=1;
    Timer:=TTimer.Create(nil);
    Timer.OnTimer:=@OnTimer;
    Timer.enabled:=false;
end;

procedure Free;
begin
    Timer.free;
end;

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;

    begin     
    name:=ConnectName;        
    if FromClient and (pck[1]=#$B2) and (ReadH(6)=12544) then         
        Timer.enabled:=true;      
    end. 


Проблема в том, что выполняется только первый Step, а иногда и он не выполняется ( чистый рандом ), второй степ вообще не выполняется.
Есть подозрения, что это из за ConnectName, не могу проверить ибо не знаю как по другому реализовать его, допустим через const если объявить имя соеденения, даже задав имя через SetName, скрипт не включается вообще. Это единственный способ который помог мне включить скрипт.