Memo Schriftfarbe ?

[Vader]

hallo,

hab das von marabu gelesen

Delphi-Quellcode:

procedure AddColoredString(ARichEdit: TRichEdit; AText: string; AColor: TColor); 
begin 
  with ARichEdit do 
  begin 
    SelStart := Length(Text); 
    SelAttributes.Color := AColor; 
    SelAttributes.Size := 8; 
    SelAttributes.Name := 'Tahoma'; 
    SelText := AText; 
  end; 
end; 

procedure TDemoForm.ButtonClick(Sender: TObject); 
begin 
  // AddColoredLine(RichEdit, 'asdfhskgfsdgfjhsdfjsd', clRed); 
  AddColoredString(RichEdit, 'asdfhskgfsdgfjhsdfjsd'#13#10, clRed); 
end;

ich möchte einzelen lines vorher schon die farbe der schrift definieren und dann einen text reinkopieren
das die lines 1-3 rot sind und dann die anderen schwarz bleiben ?

mfg vader