RichEdit: Alle zeilen farbig?

[Pseudemys Nelsoni]

hoi,

ich habe das problem das bei folgendem code, immer nur das erste Add die zeile farbig macht, das nächste ist dann wieder standard farbe. ich hatte das ganze so:

Delphi-Quellcode:

procedure RECL(RE: TRichEdit; s: string; c: TColor);
begin
  with RE do
  begin
    SelStart := Length(s);
    SelAttributes.Color := c;
    SelAttributes.Size := 9;
    SelAttributes.Name := 'MS Sans Serif';
    Lines.Add(s);
  end;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  RECL(RichEdit1, Edit1.Text, $00FF00FF);
end;