АвТОзаТоЧкА

[SeregaZ]

сюда?

PHP код:

procedure OnTimer01(Sender: TObject);
 begin
 case a of 
  1:begin
     Timer01.interval := 1000+round(random(1000));
     buf:=HStr('04 75 19 10 48 9B C7 01 00 FB 2A 01 00 57 F5 FF FF 00');
     SendToServer;
     inc(a);
    end;
  2:begin
     Timer01.interval := 1000+round(random(1000));
     buf:=HStr('04 75 19 10 48 9B C7 01 00 FB 2A 01 00 57 F5 FF FF 00');
     SendToServer;
     inc(a); 
    end;
  3:begin
     Timer01.interval := 1000+round(random(1000));
     buf:=HStr('21 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 33 00 30 00 33 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 35 00 37 00 35 00 00 00');
     SendToServ.... 


или достаточно в Init где это самое обьявление таймера?

PHP код:

procedure Init;
begin
 useforconnectname := 'blablabla';
 Timer01:=TTimer.Create(nil);
 Timer01.OnTimer:=@OnTimer01;
 Timer01.enabled:=false;
 Timer01.interval := 1000+round(random(1000));    
end;