Bueno, copie el codigo e hice unas pruebas (Delphi XE2), aqui las conclusiones:
Sustituye "string" por "AnsiString", tanto en el parametro de entrada (IP) como en el de salida de la funcion
en la linea donde te marca el error sustituye PChar(IP) por @IP
y listo! fue todo lo que yo hice y funciono bien...
|