RichEdit Wort finden, Farbig und Fett markieren

[Nils_13]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var StartPos, ToEnd, foundAt: integer;
    suchText: String;
begin
    suchText:='START';
    foundAt := Memo1.findText(suchText,0,length(Memo1.text),[stMatchCase]);
    if FoundAt <> -1 then
    begin
      Memo1.SetFocus;
      Memo1.SelStart := FoundAt;
      Memo1.SelLength := Length(suchText);
    end;
end;

Dieser Code von mare_crisium markiert das gesuchte Wort schwarz. Aber wie kriege ich es jetzt noch hin, so dass es fett und grün dargestellt wird ?