RichEdit-Formatierung

[faux]

Hallo...
ich hab mir jetzt alles mit der Delphisuche gesucht was ich unter RichEdit gefunden habe, aber ich kappiers nicht...

wen ich die folgende funktion aufrufe, funktioniert das zwar, aber es wird nur der erste übereinstimmende text gefärbt:

Delphi-Quellcode:

procedure TForm1.Colorizen(RichEdit: TRichEdit; const Msg: String; Color: TColor);
begin
  //RichEdit.Lines.Add(Msg);
  RichEdit.SelStart := Pos(Msg, RichEdit.Text) - 1;
  RichEdit.SelLength := Length(Msg);
  RichEdit.SelAttributes.Color := Color;
  RichEdit.SelLength := 0;
end;

bitte um hile, ich will das JEDER text (in der Prozedur Msg) im ganzen RichEdit gefärbt wird....