Правильную ссылку уже дали, от себя немного дополню:
delphi Код:
procedure onTimerItemSelect(Sender: TObject);
begin
case TimerCycle of
1:begin
отправка пакета 1;
Inc(TimerCycle);
Exit;
end;
2:begin
отправка пакета 2;
Inc(TimerCycle);
Exit;
end;
3:begin
отправка пакета 3;
Inc(TimerCycle);
Exit;
end;
end;
end;
Это если интервал между пактами нужен одинаковый и пакетов несколько и разных.