Czy dany numer IP jest poprawny (w formacie XXX.XXX.XXX.XXX)

Funkcja sprawdzająca czy IP jest poprawnie wpisany (tzn : 4 bloki liczb w zakresie 0 - 255 rozdzielone kropkami)

function IsValidIP(const IP: String) : boolean;
var I, J : Byte;
    ValidPart : array [0..3] of Boolean;
    Part: String;
begin
  I := 0;
  for J := 0 to 3 do
    begin
      Part := '';

      repeat
        Inc(I);
        Part := Part + IP[I];
      until (IP[i] = '.') or (i = length(IP));

      if Part[Length(Part)] = '.' then Part := Copy(Part, 0, Length(Part) - 1);
      ValidPart[J] := (StrToInt(Part) <= 255) and(StrToInt(Part) >= 0);
    end;
  Result := ValidPart[0] and ValidPart[1] and ValidPart[2] and ValidPart[3];
end;