чтение трм138 из потока

Читаю показания трм138 (пишу на Delphi) c использованием родной DLL - всё нормально:

for hh:=0 to 7 do
begin
res:=ReadIEEE32(16+hh,0,'rEAd',val,tm,-1);
if(res>=0) then array_temp[hh]:=val;
end;

Как только ставлю в поток (THread) res= -2
// попытка использовать неинициализированный ресурс (например неоткрытый порт) ERR_NO_RESOURCE: integer = -2;

Где копать?

открывать порт в потоке

а у меня при компиляции говорит что после tm (присваиваю большое целочисленное значение) ожидал ')' но обнаружил '

че делать?!