В дополнение к Леонид-у.
rolin, у Edit есть свойство MaxLenField. Так что все твои сравнения на ">" и все Delete выбрасываем.
В схеме остаётся
Edit......11
Label......2
FormatStr..1
Button.....1
------------
Всего.....15