TRichEdit - veim Verlassen auf den Anfang des Dokuments springen

[motion]

Hallo,
ich verwende unter Delphi 12.2 TRichedit zur Anzeige/Eingabe von freien Texten mit Formatierungen.
Nun kann die Eingabe/Anzeige länger als die Höhe der Komponente auf dem Formular sein. Kann man ja drin rumscrollen.
Aber wenn das Element verlassen wird (OnExit), dann soll wieder zum Anfang des RTF gesprungen werden.
Wie macht man das?
Der Komponente mit perform eine Message schicken? Ich habe etwas rumprobiert, aber leider kein Erfolg.

Vielen Dank