RichText (Farbe bei Insert)

[PremiumPils]

Huhu... kleines Problem, ich möchte in einem Textfeld Meldungen ausgeben, wobei die neuste Meldung immer oben sein soll - wichtig sind verschiedene Farben. Bei "add" gibt es keine Probleme, nur das dann die Zeilen unten sind. Dei "insert" sind die neuen Zeilen oben, jedoch ohne das neue Farbattribut.

Code:

procedure LogNachricht(text:string; texttyp:integer);
begin
  case texttyp of
      -1 : begin 
             Log.SelAttributes.Color := clRed; 
           end;
       0 : begin 
             Log.SelAttributes.Color := clWindowText; 
           end;
       1 : begin 
             Log.SelAttributes.Color := clGreen; 
           end;
  end;
  Log.Lines.insert(0,FormatDateTime('dd.mm.yy - hh:mm:ss', Now)+' - '+text);
  //Log.Lines.add(FormatDateTime('dd.mm.yy - hh:mm:ss', Now)+' - '+text);
end;