Работа с полем Edit ?

    Key=(char)toupper(Key);

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   Edit1->MaxLength = 16; //Запрет ввода в Эдит больше 16 символов
}
//---------------------------------------------------------------------------
//Запрет ввода в Эдит чего либо отличного от чисел HEX-диапазона
//ввод производится в одно слово без учета регистра
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
   const String Valid = "1234567890abcdefABCDEF";
   Key = Valid.Pos(Key) ? Key : 0x0;
}
//---------------------------------------------------------------------------
//Преобразование текста в нужный формат в момент потери Эдитом фокуса
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
   String s = Edit1->Text;
   for(int i = 1; i < Edit1->MaxLength + Edit1->MaxLength / 2 + 1; i++)
     if(i % 3 == 0) s.Insert(" ", i);
    Edit1->Text = AnsiUpperCase(s);
}
//---------------------------------------------------------------------------