function TCustomBindSourceDB.CreateSubDataSource: TDataSource;
begin
  Result := TSubDataSource.Create(Self);
  Result.Name := 'SubDataSource'; // Do not localize
  Result.SetSubComponent(True);
end;

procedure TCustomBindSourceDB.SetDataSet(const Value: TDataSet);
var
  LDataSource: TDataSource;
begin
  if Value <> DataSet then
  begin
    if Value <> nil then
    begin
      if (FDataSource = nil) or (not (csSubComponent in FDataSource.ComponentStyle)) then
      begin
        LDataSource := CreateSubDataSource;
        LDataSource.DataSet := Value;
        Self.DataSource := LDataSource;
      end;
    end
    else
      DataSource := nil;
    if FDataSource <> nil then
    begin
      FDataSource.DataSet := Value;
      SetLinks(FDataSource);
    end;
  end;
end;