1:
2:
3:
4:
5:
6:
7:
8:
9:

function GetOwnComputerName: string;
var
  Buffer: array[0..MAX_COMPUTERNAME_LENGTH+1] of Char;
  Size: DWORD;
begin
  size:=1024;
  Windows.GetComputerName(Buffer, Size);
  Result := StrPas(Buffer);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

uses 
  Winsock; 

{...} 

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 LocalIPs: Tstrings; 
begin
{Hier müssen die lokalen IP's ausgegeben werden
Um die Sache dynamisch zu halten kann man dem User
z.B. die Möglichkeit geben diese daten über eine ini
zu verändern}
Result.Add('0.');
Result.Add('127.');
Result.Add('192.');
end;

procedure TForm1.Button1Click(Sender: TObject); 
var
n, m :integer;
IsLoca l:boolean;
begin 
  for n:=0 to GetIps.Count-1 do
  begin
    IsLocal := False;
    for m:=0 to LocalIps.Count-1 do
    begin
      if Copy(GetIPs[n],1,Length(LocalIPs[m])) = LocalIPs[m] then
      begin
        IsLocal := True;
        Break;
      end;
      if IsLocal = False then Memo1.Lines.Add(GetIps[n]);
    end;
  end;
end;