(کمک فوری)IpAddress

سلام دوستان
من با استفاده از تابع GetUserName نام کاربر را بدست آورده ام حالا می خوام که IpAddressو ComputerName آنرا هم بدست بیاورم
لطفا مرا در این زمینه راهنمایی کنید

باسلام خدمت شما شماره IP
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;

درست بنویس ملت بتونن بخونن :

Function GetIP: 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                                    //Give My Owen IP Address

  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;