[DpblH]

прошу помоч мне

const

  name='ктоКидает';
  name2='камуКидают';




var
  timer1: TTimer;
  x: integer;


procedure OnTimer1(Sender: TObject);
begin




begin
  buf:=hstr('42');
       writeS(name2);
        buf:=buf + hstr('00 00 00 00');
        SendToServerEX(name);
      

end;






inc(x);
end;


procedure Init;
begin
  x := 0;
  timer1:=TTimer.Create(nil);
  timer1.OnTimer:=@OnTimer1;
  timer1.enabled:=true;
  timer1.interval:=3000;
end;

procedure Free; 
begin
timer1.free;
end;

begin
end.

суть в том чтобы сделать раздачу пати бд свс пп коту или каму угодно. чтобы бд свс бафали каждые 2 минуты с разничей в бафе в 5 секунд. и пп с котом когда угодно.
пытался скрипт на бд свс сделать неполучаеться. либо бд свс одновременно бафают либо вообще нечего хорошего. пробовал запускать с разных скриптов бд свс, окно уходило в дисконект.
помогите плиз

Добавлено через 1 час 23 минуты

const

  name='ктоКидает';
  name2='бд';
  name3='свс';



 var
  timer1: TTimer;
  x: integer;


procedure OnTimer1(Sender: TObject);
begin



case x of
1:begin
  buf:=hstr('42');
       writeS(name2);
        buf:=buf + hstr('00 00 00 00');
        SendToServerEX(name);
         timer1.interval := 5000
        end;

2:begin
  buf:=hstr('42');
       writeS(name3);
        buf:=buf + hstr('00 00 00 00');
        SendToServerEX(name);
      
        end;



 end;
inc(x);

end;
//******************************************************************************
//                 Вызывается при включении скрипта
//******************************************************************************
procedure Init;
begin
  x := 0;
  timer1:=TTimer.Create(nil);//выделяем памать и т.п.
  timer1.OnTimer:=@OnTimer1;//привязываем процедуру к событию
  timer1.enabled:=true;//начальное положение true-включен/false-выключен
  timer1.interval:=125000;//интервал
end;




begin


end.

нипонимаю почему ниработает