Fórum Balança Urano #363740

Olá Pessoal, sou novo por aqui no fórum e também sou novo com programação Delphi e estou com o seguinte problema:

Estou tentando capturar o peso de uma balança urano UDC-CO mas não obtenho retorno correto da balança, tenho um exemplo disponibizado pela Urano no manual de comunicação da dll LePeso em C

#include <iostream.h>
include <conio.h>
typedef char *(*LEPESO)();
typedef int (*ABREPORTASERIAL)(char *);
typedef int (*FECHAPORTASERIAL)(void);
typedef void (*ALTERAMODELOBALANCA)(int);
typedef void (*ALTERAMODOOPERACAO)(int);
int main(int argc, char* argv[])
{
HINSTANCE hinstLib;
LEPESO ProcLePeso;
ABREPORTASERIAL ProcAbrePortaSerial;
FECHAPORTASERIAL ProcFechaPortaSerial;
ALTERAMODELOBALANCA ProcAlteraModeloBalanca;
ALTERAMODOOPERACAO ProcAlteraModoOperacao;
hinstLib = LoadLibrary(´LePeso.dll´);
if(hinstLib != NULL) {
ProcLePeso = (LEPESO)GetProcAddress(hinstLib, ´_LePeso´);
ProcAbrePortaSerial = (ABREPORTASERIAL)GetProcAddress(hinstLib, ´_AbrePortaSerial´);
ProcFechaPortaSerial = (FECHAPORTASERIAL)GetProcAddress(hinstLib,
´_FechaPortaSerial´);
ProcAlteraModeloBalanca = (ALTERAMODELOBALANCA)GetProcAddress(hinstLib,
´_AlteraModeloBalanca´);
ProcAlteraModoOperacao = (ALTERAMODOOPERACAO)GetProcAddress(hinstLib,
´_AlteraModoOperacao´);
(ProcAlteraModeloBalanca)(1);
(ProcAlteraModoOperacao)(1);
(ProcAbrePortaSerial)(´COM1´);
while(!kbhit()) cout << (ProcLePeso)();
(ProcFechaPortaSerial)();
}
FreeLibrary(hinstLib);
return 0;
}

estou usando da seguinte maneira

Declaração da dll
function LePeso():String;stdcall;external ´LePeso.dll´ name ´_LePeso´;

o meu grande problema é com o comando lepeso, onde faço da seguinte maneira

PesoUrano:=LePeso();

onde Peso Urano é uma String, mas não obtenho nenhum retorno se alguém já programou balanças Urano por favor me ajude.