процедура с таймером)

[guplen]

Проверять вломак, хз что у тебя там не так, надо весь код смотреть.
Вот каркас с таймером на 7 разных действий. annon выводит в чате циферки от 1 до 7.

var
    cycle:integer;
    Timer1:TTimer;
    
procedure annon(msg:string);
begin 
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;

procedure Init; //Вызывается при включении скрипта
begin
    Timer1:=TTimer.Create(nil);
    Timer1.OnTimer:=@OnTimer;
    Timer1.Enabled:=true;
    Timer1.Interval:=1000;//интервал запрещения пакета
    cycle:=0;
    useforconnectname:='op';
end;

procedure Free; //Вызывается при выключении скрипта
begin
    Timer1.Free();
end;

procedure OnTimer();
begin
    case cycle of
        1:begin
            annon(inttostr(cycle));
        end;
        2:begin
            annon(inttostr(cycle));
        end;
        3:begin
            annon(inttostr(cycle));
        end;
        4:begin
            annon(inttostr(cycle));
        end;
        5:begin
            annon(inttostr(cycle));
        end;
        6:begin
            annon(inttostr(cycle));
        end;
        7:begin
            annon(inttostr(cycle));
            timer1.Enabled:=false;
        end;
    end;
    inc(cycle);
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

end.

А в какой тег надо вписывать код, чтобы он отформатировался в делфи? НА пенельке редактора ничего не нашел чота.