DELPHI5P: Text in GROSSBUCHSTABEN

Hallo Delphianer,
wie kann ich den markierten Text einer RichEdit-Komponente in GROSSBUCHSTABEN ändern ?
Für einen Tip oder eine Lösung wäre ich sehr dankbar.
MfG.
Uwe

function UpperCase und Property SelText