Создается дубликат или неправильное создаение компонента?

[xxxkrikxxx]

Пишу свой компонент. В нем добавляю 2 других компонента. Добавляю на форму - все норм, свойства работают в дизайнере. Если запускаю проект, само свойство меняется, а вот перерисовка компонента не происходит. Далее перезапускаю проект и получается что в компоненте (который я добавил) находятся два дополнительных компонента которые создаются в конструкторе. (Показал на изображениях)

Вот пример конструктора

constructor TBoolComparator.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FBoolInput1 := TBoolInput.Create(Self);
  FBoolInput1.Parent := Self;
  FBoolInput2 := TButton.Create(Self);
  FBoolInput2.Parent := Self;
  Width := 100;
  Height := 100;
  if Assigned(FBoolInput1) then
    begin
      FBoolInput1.Position.X := 10;
      FBoolInput1.Position.Y  := 10;
      FBoolInput1.Width := 50;
      FBoolInput1.Height := 50;
      FBoolInput1.Working := false;
    end;
  if Assigned(FBoolInput2) then
    begin
      FBoolInput2.Position.X := 10;
      FBoolInput2.Position.Y  := 30;
      FBoolInput2.Width := 50;
      FBoolInput2.Height := 50;
    end;
end;

Что не так получается? Использую Delphi XE6 FireMonkey. TBoolInput компонент на котором я рисую на канвас. Может при создании нужно еще что-то учитывать?