TEdit Feld nach Überprüfung zum Überschreiben markieren

[Murdock]

Hallo Alle

Ich hab mal wieder ein kleines (für mich größeres ) Problem.
Wie macht man es, dass ein TEdit Feld nach einer Überprüfung, die negativ war zum überschreiben markiert wird. Ihr wisst doch, so wie bei Windows auch der ganze Eintrag wird blau und bei der ersten Tasteneingabe löscht sich alles usw.

Kann mir da jemand weiter helfen ?

Danke Murdock

[chrisw]

Delphi-Quellcode:

Edit1.setFocus;
  Edit1.SelectAll;