[Breadfan]

топорно как-то так вроде бы:

Оффтоп

PHP код:

const
name='';
var
Cycl:Ttimer;
procedure Init; //Вызывается при включении скрипта
begin
k:=1;
Cycl:=TTimer.Create(nil);
Cycl.OnTimer:=@NextStep;
Cycl.enabled:=false;
Cycl.interval:=2000;
end;

Procedure NextStep;
begin
    case k of
        3:begin
                Buf:=четотамэтакое3;
                Sendtoserverex(name); 
                Cycl.enabled:=False;
                inc(k);
            end; 
        2:begin
                Buf:=четотамэтакое2;
                Sendtoserverex(name);
                inc(k);
            end;
        1:begin
                buf:=четотамэтакое1;     
                Sendtoserverex(name);
                inc(k);
            end;
    end;
           if (k=4) then k:=1;
end;

procedure Free; //Вызывается при выключении скрипта
begin
 Cycl.enabled:=false;
 Cycl.free
end;

begin
     If FromClient and (connectname=name) and (pck[1]=соц действие) then begin
        Cycl.enabled:=True;
    end;
end.
//листинг - не проверял. 


но - если это из той забавной серии откровений типа "я знаю как дюпнуть, надо всего лишь отправлять с точностью до милисекунды..." - то можешь сразу забить.