function IsIPAdress(const Value:String):Boolean; var n,x,i: Integer; Posi:Array[..]of Integer; Oktet:Array[..]of String; begin Result := true; x := ; // es dürfen nur Zahlen und Punkte vorhanden sein to Length(Value) do ','.']) then begin // ungültig…