[NLObP]

Стоит изменить процедуру OnTimer1 так:

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