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

[Deffol]

кошмар, спасибо большое я в шоке, что не увидел, что у меня вместо второго шага стоит третий...вот балбес, целую тему создал. хотя в любом случае я бы наверно не скоро заметил это. спасибо еще раз.
А вот пользуясь случаем хотел бы поинтересоваться, ConnectName нормально я прописал? В смысле не всегда правильно то, что вроде бы работает у меня по крайней мере.

Добавлено через 2 часа 16 минут
С этим я разобрался, все таки смог через имя соеденения активировать скрипт по старинке.
Но как ставлю задержки ( интервал времени ), выполняется только первый шаг и последний, второй не выполняется:

PHP код:

const
name='deffol'; 
var
    Timer:TTimer;
    StepSkill:byte;
    
procedure Init;
begin
    StepSkill:=1;
    Timer:=TTimer.Create(nil);
    Timer.OnTimer:=@OnTimer;
    Timer.enabled:=false;
end;

procedure Free;
begin
    Timer.free;
end;

procedure OnTimer(Sender: TObject);
begin
    case StepSkill of   
    1:
        begin
        buf:=HStr('пакет');
        SendToServerEx(name);  
        Inc(StepSkill);  
        timer.interval:=200;
        end;
    2:
        begin
        buf:=HStr('пакет');
        SendToServerEx(name);
        Inc(StepSkill);  
        timer.interval:=200;
        end;
    3:
        begin
        buf:=Hstr('кулёк');
        SendToServerEx(name);  
        Timer.enabled:=false;  
        StepSkill:=1;
        end;
    end;
end;

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


Пробовал с каждыми действием добавлять шаг, то есть не через Inc(SkillStep), а через SkillStep:=2 ( в первом шаге ), SkillStep:=3 ( во втором ), ну и в третьем возвращать так же как в конце таймера. В этом случае скрипт выполнялся как мне нужно, но всего лишь один раз, после он будто выключался. Подскажите где ошибся или опять мб что-то забыл. Без интервала никак