Gracias seoane por toda la informacion que me proporcionaste, revise bien el codigo ultimo que me distes y ya se usar la funcion realmente no se le mete parametros sino que de una sola vez te lo da asi que por si alguien mas quiere usuarla es asi:
Código:
Var
ResuladoIP:String;
begin
ResultadoIP:=(ObtenerIP);
y ya!!! asi de simple todo lo hace la funcion no hay necesidad de parametros ni nada.. y lo mejor de todo que esta funcion no ve si es un windows 98, 95 nt 2003 xp o lo que sea.
//Las Caidas te hacen aprender a caminar