Как поместить TCheckBox в TRichEdit

Как поместить TCheckBox в TRichEdit

Для использования следующего примера, необходимо создать новую форму, перетащить на неё TRichEdit (RichEdit1) и создать checkbox (acb) в событии FormCreate().

procedure TForm1.FormCreate(Sender: TObject);
var
  Acb: TCheckBox;
begin
  RichEdit1.Left := 20;

  Acb := TCheckBox.Create(RichEdit1);
  Acb.Left := 30;
  Acb.Top := 30;
  Acb.Caption := 'Delphi World is COOL !!!';
  Acb.Parent := RichEdit1;
end;

энергосбережение в промышленных предприятиях . двери силикатная . генератор горячего тумана . производство изделий из пластмассы . Ж д перевозки, Железнодорожные грузоперевозки. Железнодорожные перевозки Тында. . дверь утепленная .