Zeichenkette in memo-Komponente automatisch löschen

[Jab]

Hallo an alle,

Ich habe nochmal eine etwas vielleicht dümmliche Frage.
Ich möchte, dass wenn jemand mehrmals hintereinander den selben buchstaben in meine Tmemo-Komponente schreibt, diese Buchstabenkette automatisch gelöscht wird.

Also als Beispiel:

In memo komponente: "Hallooooooooooooooo"

DAnn möchte ich, dass alle überflüssigen oooooooooooo'S automatisch gelöscht werden.
Also etwas wie:
WEnn 3 mal der selbe buchstabe hintereinander kommt, dann wird die Zeichenkette gelöscht.

Leider bin ich nicht sehr bewandert mit Delphi, also seid nachsichtig
cya Jab