[dyh9l]

Сообщение от J-Fobos

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

Добавлено через 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 включать надо?)