ClearSelection

Jeg har noget a'la det her, som skal 'bolde' 'Nick' + lidt mere, men lige så snart jeg indsætter en ny linie, bliver HELE linien bold, hvilket jo ikke er meningen...
Hvad går der galt?

  RichEdit1.Lines.Insert(0,Nick+' : '+Msg);
  RichEdit1.SelStart := 0;
  RichEdit1.SelLength := Length(Nick)+2;
  RichEdit1.SelAttributes.Style := [fsBold];
  RichEdit1.ClearSelection;