ребят оно взорвет мне голосу

[dyh9l]

переделайте мне зацикленную процедуру делаем в таймер, я перепробывал около 5 разных вариантов, я уже не знаю что думать, кто сделает буду любить :)
Последний вариант таймера закоментирован под процедурой BuyScroll, в таймер надо сделать BuyScroll & BuyItem
фобос я в тебя верю ;-)

[J-Fobos]

Я леньтяй :D Если не забуду, то завтра на работе сделаю.

Добавлено через 20 часов 49 минут
Гы, я забыл сделать)) Ну вот пример:

procedure OnTimer01(Sender: TObject);
begin
case TimerCyrcle of
1: Begin buf:=#$00; SendToServerEx(name); End;
2: Begin buf:=#$00; SendToServerEx(name); End;
3: Begin buf:=#$00; SendToServerEx(name); End;
4: Begin buf:=#$00; SendToServerEx(name); End;
5: Begin buf:=#$00; SendToServerEx(name); End;
6: Begin buf:=#$00; SendToServerEx(name); End;
7: Begin buf:=#$00; SendToServerEx(name); End;
8: Begin buf:=#$00; SendToServerEx(name); End;
//9.. 10.. 11.. сколько надо
else
Begin
TimerCyrcle:=1;
Timer01.enabled:=false;
exit;
End;
end;
Inc(TimerCyrcle);
end;

[dyh9l]

Я леньтяй :D Если не забуду, то завтра на работе сделаю.

Добавлено через 20 часов 49 минут
Гы, я забыл сделать)) Ну вот пример:

procedure OnTimer01(Sender: TObject);
begin
case TimerCyrcle of
1: Begin buf:=#$00; SendToServerEx(name); End;
2: Begin buf:=#$00; SendToServerEx(name); End;
3: Begin buf:=#$00; SendToServerEx(name); End;
4: Begin buf:=#$00; SendToServerEx(name); End;
5: Begin buf:=#$00; SendToServerEx(name); End;
6: Begin buf:=#$00; SendToServerEx(name); End;
7: Begin buf:=#$00; SendToServerEx(name); End;
8: Begin buf:=#$00; SendToServerEx(name); End;
//9.. 10.. 11.. сколько надо
else
Begin
TimerCyrcle:=1;
Timer01.enabled:=false;
exit;
End;
end;
Inc(TimerCyrcle);
end;

Timer01.enabled=true ; достаточно будет или еще TimerCyrcle включать надо?)

[J-Fobos]

TimerCyrcle:integer;
Ну начальное значение конечно надо задавать :)