[afonbka]

Спасибо. сейчас проверю. До этого делал точно также, но давало ошибку в строке (connectname=name) а сейчас нет сейчас протестю. Спасибо все работает. Правдо первый раз загрузил, пил неперестовая, потом помудрил, удалил 1 функцию, потом снова добавил и норм все стало. Спасибо. Теперь буду мудрить чтобы привязать таймер. Прошу помоч если ктонито может..

//чёртово автоматическое использование грёбаных НР пробирок
const
    Name='UberWark';

var MyID:Word;
    OID:String;

begin
if FromServer and (connectname=name) and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (connectname=name) and (pck[1]=#$18) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<=ReadD(11)) then
    begin
     buf:=HStr('19 D9 03 21 10 00 00 00 00');    
     SendToServerEx(Name);
    end;
end.

Или подскажите хотябы как сделать на этот скрипт не таймер, а обычный Delay 10 секунд.