TCustomMaskEdit

pt 

EditText

pt 

ro 

IsMasked

pt 

SpaceChar

 

EditMask

 

Text