[TAMBIK]

Сообщение от NLObP

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

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

да забыл отослать
и таймер остоновить
поправил

Добавлено через 4 минуты

Сообщение от ruslan

не запускается пишет ошбка BEGIN на

Timer01: TTimer;

rocedure OnTimer01(Sender: TObject);
begin

нету ошибки !!!
скопировал полностью ?
впечетление нехватает var в начале