Hvordan kan jeg få fat i min udgåend IP?

Hejsa.

Jeg bruger nedenstående kode til at få fat på min interne ip adresse som er : 10.0.0.2.

Men hvordan får jeg fat på min udgående IP adresse?
eks.: 240.99.44.2

Kan man også få fat i en ip adresse fra en computer som er på netværket, hvis ja hvordan? :)

*****KODE START*****

function getIPs: Tstrings;
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 := TstringList.Create;
  Result.Clear;
  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.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Memo2.Lines := GetIps;
end;

*****KODE SLUT*****