[TAMBIK]

вроде так

 var
   Timer01: TTimer;

  procedure OnTimer01(Sender: TObject);
  begin

    buf:=hstr('19 92 F1 10 40 00 00 00 00'); //отсылаем пакет
    SendToServer;               // на сервер
    Timer01.enabled:=false;  //останавливаем таймер

  end;

  procedure Init;
  begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=false; //начальное положение включен/выключен
   Timer01.interval:=10000; //интервал
  end;
  procedure Free; 
  begin
  timer01.free;
  end;

  begin

  if FromClient and (pck = HStr('19 92 F1 10 40 00 00 00 00')) then begin

   Timer01.enabled:=true;

   pck:=''; 

   end;
end.