[cesarsoftware]

Buenas foreros
Tema resuelto
para que la librería me devuelva el valor, ella lo define internamente como

 "char value[30];"

asi que en la definición de la función lo he pasado a un array dinamico de ansichar

Código Delphi [-]
function ReadVar(hPort: integer; variable: ansistring; var value: array of ansichar): DNCRESULT_E; cdecl; stdcall; external 'netcom.dll';

y para usarlo

Código Delphi [-]
var
  resultado: DNCRESULT_E;
  value: array[0..31] of ansichar;
begin
      resultado := ReadVar(hPort, variable[i], value);
      if resultado = DNCRESULT_E.DNC_SUCCESS then
         Lx.Caption := String(value);

end;

Gracias por vuestra colaboracion