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