Problem mit RichEdit und ColorBox

[Popov]

Delphi-Quellcode:

procedure TForm1.ColorBox1Select(Sender: TObject);
begin
  RichEdit1.SelAttributes.Color := ColorBox1.Selected;
end;