Я леньтяй
Если не забуду, то завтра на работе сделаю.
Добавлено через 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;