Проверка корректности вводимых данных (IP-адреса и маски подсети)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if(CheckIP(Edit1->Text)) Shape1->Brush->Color = clLime; else Shape1->Brush->Color = clRed;
   if(CheckIP(Edit2->Text)) Shape2->Brush->Color = clLime; else Shape2->Brush->Color = clRed;
}

bool CheckIP(String s)
{
    if(s.Length() - StringReplace(s, ".", "", TReplaceFlags() << rfReplaceAll).Length() != 3) return false;
    TStringDynArray A = SplitString(s, ".");
    int d;
    for(int i = 0; i < A.Length; i++)
     if((!TryStrToInt(A[i], d)) || (d < 0) || (d > 255)) return false;
    return true;
}

#include <System.StrUtils.hpp>

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
   TShape *Shp;
   dynamic_cast<TEdit*>(Sender)->Tag == 0 ? Shp = Shape1 : Shp = Shape2;
   String txt = dynamic_cast<TEdit*>(Sender)->Text;
   if(CheckIP(txt)) Shp->Brush->Color = clLime; else Shp->Brush->Color = clRed;
}

#include <memory>
#include <math.hpp>
 
bool CheckIP(String s)
{
    std::auto_ptr<TStringList> L(new TStringList);
    L->Delimiter = '.';
    L->DelimitedText = s;
    if(L->Count != 4) return false;
    for(int i = 0; i < L->Count; i++)
    {
        if(!InRange(StrToIntDef(L->Strings[i], -1), 0, 255)) return false;
    }
    return true;
}

 //   #include <stdio.h>
     int a[4]; char h[40]={0,};
     sscanf(Edit1->Text.c_str(),"%d%c%d%c%d%c%d",
        &a[0],&h[0],&a[1],&h[1],&a[2],&h[2],&a[3],&h[3]);
     bool url = (a[0]|a[1]|a[2]|a[3]) < 256 && (String)h =="...";
     Shape1->Brush->Color = url ? clLime : clRed;