Textübernahme von mehrere Memofelder in RichEdit felder,

[Reini64]

Hi
ich habe folgendes Problem:

ich möchte in ein Richedit Feld mehrere Memofelder aus der Datenbank einfügen jeweils mit einer Überschrift dabei erhalte ich die Fehlermeldung: "Fehler bei Einfügen von RichEdit-Zeile ".

Delphi-Quellcode:

   if dm_stamm.q_detail['m1'] <> null then
      begin
        RichEdit1.Lines.Add(suchfeld[I]);  //Word in RichEdit einfügen
        RichEdit1.SelStart := Pos(suchfeld[I],RichEdit1.Text)-1; //Position des Wortes bestimmen
        RichEdit1.SelLength := Length (suchfeld[I]); //Länge festelegen
        RichEdit1.SelAttributes.Style := [fsBold];
        RichEdit1.SelLength := 0;  //Markierung aufheben.
        RichEdit1.Lines.Add(dm_stamm.q_detail['m1']);
      end;

der Fehler taucht in der Zeile: " RichEdit1.Lines.Add(dm_stamm.q_detail['m1']);"
auf.

Wa mache ich falsch ???