Teil einer Zeile Fett machen --> RichEdit

[toms]

Delphi-Quellcode:

procedure AddColoredLine(RichEdit: TRichEdit; strText: string; aColor: TColor);
begin
  with RichEdit do
  begin
    SelStart := Length(strText);
    SelAttributes.Color := aColor;
    SelAttributes.Size := 8;
    SelAttributes.Name := 'MS Sans Serif';
    Lines.Add(strText);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddColoredLine(RichEdit1, 'Hallo', clRed);
  AddColoredLine(RichEdit1, 'Hallo', clGreen);
end;