[Xelat]

Shizo,
что-то в этом роде.

var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=3000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('ХХ ХХ ХХ ХХ');
  SendToServer;
  buf:=hstr('Х1 Х1 Х1 Х1');
  SendToServer;
end;
begin
  if FromClient and (ConnectName=Name) and (pck = HStr('5A 06 00 00 00')) then begin
    timer.enabled:=false;
  end;
end.