Wieso soll man das wollen?
Kannst du erklären wieso du AnsiString benötigst?
Ich vermute ein überschreiben von DoChange oder Keypress-Methoden, um alle neuen Zeichen auf "IsAnsChar" sollte helfen.
Die Basis-TEdit-Komponente wirst du nicht ändern können. Dazu ist UnicodeString schon zu tief in der
VCL eingebaut.