Как поместить TCheckBox внутри TRichEdit?

Warning: array_key_exists() [function.array-key-exists]: The second argument should be either an array or an object in /home/delphi7/public_html/479714b078a8d205ac2eb3cada3caabc/sape.php on line 395

Как поместить 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 := 'my checkbox';
  Acb.Parent := RichEdit1;
end;