вот так например
Код:
const
packet1='';
packet2='';
var
TimerCycle:integer;
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=1000;
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
TimerCycle:=1;
end;
procedure fireTimer(Sender: TObject);
begin
case TimerCycle of
1:begin
buf:=packet1;
sendtoserver;
Inc(TimerCycle);
end;
2:begin
buf:=packet2;
sendtoserver;
TimerCycle:=1;
timer.enabled:=false;
end;
end;
end;
procedure Free;
begin
timer.free;
end;
begin
end.