Огромное спасибо - все работает....
Порт нужно открывать для всей 485-й сети.
Код:
for hh:=0 to 200 do
      begin
       Display('-------');
       for i:= 0 to 7 do
        begin
          res:= ReadIEEE32(16+i,0,'Pv  ',val,tm,-1);
           if(res>=0)
                then
                  begin
                   display('Температура канал '+IntToStr(i+1)+' =',val);
                  end
                else
                  begin
                    display('Ошибка');
                 end;
         end;
           Sleep(1000);
      end;