A ver intenta de esta manera...
Código Delphi
[-]
function ReadVar(hPort: integer; variable: PAnsichar; value:PAnsichar): integer; stdcall; external 'Netcom.dll';
Código Delphi
[-]
var
lpVariable, lpValor:PAnsiChar;
hPort, retval:Integer;
begin
lpVariable :='La_Variable'';
lpValor:='';
retval:=ReadVar(hPort, lpVariable, lpValor);
Saludos cordiales