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

uses
  ..., Winsock;

if (inet_addr(PChar(Edit1.Text)) <> -1) then
  ShowMessage('OK')
else
  ShowMessage('Fehler!');					

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:

function validIP(Host: String): Boolean;
var arrIP   : Array of String[3];
    bResult : Boolean;
        i   : Integer;

begin
  bResult := True;
  i       := 0;
  while Pos('.',Host) > 0 do
  begin
    SetLength(arrIP, High(arrIP) + 2);
    arrIP[i] := Copy(Host,0,Pos('.',Host)-1);
    Host    := Copy(Host,Pos('.',Host)+1, Length(Host));
    if Pos('.',Host) = 0 then
    begin
      SetLength(arrIP, High(arrIP) + 2);
      arrIP[i+1] := Host;
      Break;
    end;
    inc(i);
  end;
  if High(arrIP) <> 3 then bResult := False;
  for i:=low(arrIP) to high(arrIP) do if not ((StrToInt(arrIP[i]) >= 0) and (StrToInt(arrIP[i]) <= 255)) then bResult := False;
  Result := bResult;
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:

Function IsWrongIP(Ip: String): Boolean;
Const
    Z = ['0'..'9', '.'];
Var
    I, J, P: Integer;
    W: String;
Begin
    Result := False;
    If (Length(Ip) > 15) Or (Ip[1] = '.') Then
        Exit;
    I := 1;
    J := 0;
    P := 0;
    W := '';
    Repeat
        If (Ip[I] In Z) And (J < 4) Then
        Begin
            If Ip[I] = '.' Then
            Begin
                Inc(P);
                J := 0;
                Try
                    StrToInt(Ip[I + 1]);
                Except
                    Exit;
                End;
                W := '';
            End
            Else
            Begin
                W := W + Ip[I];
                If (StrToInt(W) > 255) Or (Length(W) > 3) Then
                    Exit;
                Inc(J);
            End;
        End
        Else
            Exit;
        Inc(I);
    Until I > Length(Ip);
    If P < 3 Then
        Exit;
    Result := True;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function CheckIP4(IP: String): Boolean;
  var
    SL: TStringList;
    i: Integer;
begin
  Result := FALSE;
  try
    SL := TStringList.Create;
    SL.Delimiter := '.';
    SL.DelimitedText := IP;
    if (SL.Count = 4) then begin
      Result := TRUE;
      for i := 0 to 3 do
        Result := Result and (StrToIntDef(SL.Strings[i],256) in [0..255]);
    end;
  finally
    SL.Free;
  end;
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:

function IsIpAdr(Adr: String): Boolean;
var
i: Integer; // Schleifenzahl
j: Integer; // Anzahl der Punkte
s: Array [1..4] of String; // Einzelne Oktale (wenn die so heißen :mrgreen:)
begin
Result := False;
j := 0;
for i := 1 to Length(Adr) do
  if Adr[i] = '.' then
    j := j + 1
  else
    try
      s[j+1] := s[j+1] + Adr[i];
    except
      Exit;
    end;
for i := 1 to 4 do
  begin
  if s[i] = '' then
    Exit;
  try
    if (StrToInt(s[i]) < 0) or (StrToInt(s[i]) > 255) then
      Exit;
  except
    Exit;
  end;
  end;
Result := True;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function IsIpAdr(Adr: String): Boolean;
var
i, j: Integer;
s: Array [1..4] of String;
begin
Result := False;
j := 0;
for i := 1 to Length(Adr) do if Adr[i] = '.' then j := j + 1 else try s[j+1] := s[j+1] + Adr[i];
except Exit;
end;
for i := 1 to 4 do begin if s[i] = '' then Exit;
try if (StrToInt(s[i]) < 0) or (StrToInt(s[i]) > 255) then Exit;
except Exit;
end;
end;
Result := True;
end;