Delphi - ¿Como averiguar la direccion IP de mi PC?

Hola, amigos.
Estoy intentando averiguar la dirección IP de mi PC en tiempo de Ejecución. ¿Hay algún componente que lo haga? ¿O algún algoritmo que me ayude a hacerlo? Estoy intentando averiguar la IP dinámica, que se asignacada vez que me conecto a Internet.. Muchas gracias.

Aqui esta una funcion que encontre en una pagina, espero te sirva.
(Es una funcion que te regresa tu direccion ip en una cadena)

Uses WinSock;

function LocalIP : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do
begin
result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;