Верно ли, что это число содержит ровно три одинаковых цифры

bool __fastcall TForm1::RovnoTree(AnsiString dfg)
{
 bool qax = false;
 int d = 1, n = 0;
 for(int i = 1; i < dfg.Length()+1; i++)
 {
   while(d<=dfg.Length())
   {
    if(StrToInt(dfg[i])==StrToInt(dfg[d]))
    {
      n++;
    }
    if(n==3)
    {
       qax = true;
       break;
    }
      d++;
   }
   n = 0;
   d = 1;
   if(qax)
   {
    break;
   }
 }
 return qax;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(!Edit1->Text.IsEmpty())
 {
  RovnoTree(Edit1->Text) ? ShowMessage("Число содержит ровно три одинаковых цифры") : ShowMessage("Число не содержит ровно три одинаковых цифры");
 }
}
//---------------------------------------------------------------------------

String s = "6646";
TStringList *L = new TStringList;
L->Sorted = true;
L->Duplicates = System::Classes::dupIgnore;
for(int i = 1; i < 5; i++)
  L->Add(s[i]);
L->Count == 2  ? ShowMessage("Число содержит три одинаковых цифры") : ShowMessage("Число не содержит три одинаковых цифры");
delete L;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *L = new TStringList;
  L->Sorted = true;
  L->Duplicates = System::Classes::dupIgnore;
  for(int i = 1; i <= Edit1->Text.Length(); i++)
   L->Add(Edit1->Text[i]);
  L->Count == Edit1->Text.Length() - 2 ? ShowMessage("Число содержит три одинаковых цифры") : ShowMessage("Число не содержит три одинаковых цифры");
  delete L;
}