function  IsIP( const  Value:  string ): Boolean;
 var 
  n, x, i: Integer;
 begin 
  Result := true;
   if  Pos('..',Value) >  0   then 
    Result := False
   else 
   begin 
    i :=  0 ;
    x :=  0 ;
     for  n :=  1   to  Length(Value)  do 
     begin 
       if  (Value[n]  in  ['0'..'9'])  then 
        i := i + 1 
       else 
         if  (Value[n]  in  ['.'])  then 
          i :=  0 
         else 
          Result := False;
       if  Value[n] = '.'
         then  Inc(x);
       if  i >  3   then 
        result := False;
       if  result = false  then 
        Break;
     end ;
     if  x <>  3   then 
      Result := False;
   end ;
 end ;