delphiで使うテキストボックス

delphiでテキストボックスを使用する際、文字数制限があり、一定の文字以上は入力できません。 以前VBでの文字数制限について質問しましたが、そのときにはRichTexBoxでできると聞いたのですが、delphiでのRichTextは制限がありできません。 なにか制限をなくす方法、またはコンポーネント等ありませんか？ お願いします。