Mehrere Zeilen mit verschiedene Fonts

[waschlap]

Delphi-Quellcode:

  Richedit1.Lines.add(#9#9#9#9 + 'Summe von ' + #9 + 'Euro');
  Richedit1.Lines.add(#9#9#9#9 + 'blabla ' + #9 + 'Euro');

  for i:=0 to RichEdit1.Lines.Count -1 do
  begin
    with RichEdit1 do
    begin
      SelStart := Perform(EM_LINEINDEX, i, 0) + Zahl(z.b.:4);
      SelLength := 60;
      if i= 1 then
      begin

        SelAttributes.Style:= [fsUnderline];
      end;
    end;

Das ist die Lösung , trotzdem DANKE für eure Hilfe.