Ograniczenie wpisywania tekstu w Edit do podanej liczby znaków

Aby ograniczyć wpisywanie tekstu w Edit (w naszym przykładzie można wpisać tylko 8 znaków) należu utworzyć zdarzenie OnKeyPress dla tego komponentu:

Unit1.cpp

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
   if (Key != VK_BACK)
   {
      if (Edit1->Text.Length() > 7)
      {
         Key = 0;
      }
   }
}