Validação De Ip

[thata]

Gostaria de pedir a quem tiver, uma função para de validação de ip em delphi.

Agradeço a quem puder ajudar!

[Progr'amador]

Ai vai:

function TForm1.IsWrongIP(ip: string): Boolean;
var
   z:integer;
   i: byte;
   st: array[1..3] of byte;
const
   ziff = ['0'..'9'];
begin
   st[1] := 0;
   st[2] := 0;
   st[3] := 0;
   z := 0;
   Result := False;
   for i := 1 to Length(ip) do if ip[i] in ziff then
   else begin
      if ip[i] = '.' then begin
         Inc(z);
         if z < 4 then st[z] := i
         else begin
            IsWrongIP := True;
            Exit;
         end;
      end else begin
         IsWrongIP := True;
         Exit;
      end;
   end;
   if (z <> 3) or (st[1] < 2) or (st[3] = Length(ip)) or
      (st[1] + 2 > st[2]) or (st[2] + 2 > st[3]) or
      (st[1] > 4) or (st[2] > st[1] + 4) or (st[3] > st[2] + 4) then begin
      IsWrongIP := True;
      Exit;
   end;
   z := StrToInt(Copy(ip, 1, st[1] - 1));
   if (z > 255) or (ip[1] = '0') then begin
      IsWrongIP := True;
      Exit;
   end;
   z := StrToInt(Copy(ip, st[1] + 1, st[2] - st[1] - 1));
   if (z > 255) or ((z <> 0) and (ip[st[1] + 1] = '0')) then begin
      IsWrongIP := True;
      Exit;
   end;
   z := StrToInt(Copy(ip, st[2] + 1, st[3] - st[2] - 1));
   if (z > 255) or ((z <> 0) and (ip[st[2] + 1] = '0')) then begin
      IsWrongIP := True;
      Exit;
   end;
   z := StrToInt(Copy(ip, st[3] + 1, Length(ip) - st[3]));
   if (z > 255) or ((z <> 0) and (ip[st[3] + 1] = '0')) then begin
      IsWrongIP := True;
      Exit;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 IsWrongIP(Edit1.text);
end;

ate+