Como obtengo la direccion ip de internet???

[danytorres]

Disculpen la molestia pero no logro obtener la direccion Ip de internet el codigo que me recomendaron fue este pero me da una direccion errada

Code
________________________________________________________________
function My_IP_Address : longint;
var
buf : array [0..255] of char;
RemoteHost : PHostEnt;
begin
Winsock.GetHostName(@buf, 255);
RemoteHost:=Winsock.GetHostByName(buf);
if RemoteHost=NIL then
My_IP_Address := winsock.htonl($07000001) { 127.0.0.1 }
else
My_IP_Address := longint(pointer(RemoteHost^.h_addr_list^)^);
Result := Winsock.ntohl(Result);
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Add(IntToStr(My_IP_Address));
end;
_______________________________________________________________

El resultado de este codgo es el siguiente: -1062731739

y mi direccion Ip es: 200.89.56.56 esta direccion es dinamica.


Que le falta a este codigo o si tienen uno que me pueda ayudar?? Gracias.