Динамическое создание компонентов

[PTyTb32]

Привет, есть задача по нажатию кнопки создать новую вкладку на PageControl и разместить на ней TChart (новый) я сделал это вот так:

procedure TfOWN.Button3Click(Sender: TObject);
var 
  nts:TTabSheet; 
  cha:tdbchart;
begin
  nts:=TTabSheet.Create(self);
  nts.Parent:=PageControl1;
  nts.PageControl:=PageControl1;
  nts.Name:='nts'+inttostr(PageControl1.PageCount);
  cha:=tdbchart.Create(self);
  cha.Parent:=nts;
  cha.Align:=alClient;
  cha.Name:='nch'+inttostr(PageControl1.PageCount);
end;

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

[Serge_Bliznykov]

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

[PTyTb32]

Сообщение от Serge_Bliznykov

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

не могу использовать отладчик, так как этот проект находится в библиотеке. в делфи создал новый проект DLL и в него добавил новую форму.


P.S.
Если вместо TChart создать панель, то все так же работает...

а дебагер главного приложения которое вызывает DLL остановился с ошибкой вот тут

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
  Handled: Boolean;
  Unicode: Boolean;
  MsgExists: Boolean;
begin
  Result := False;
  if PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE) then
  begin
    Unicode := (Msg.hwnd = 0) or IsWindowUnicode(Msg.hwnd);
    if Unicode then
      MsgExists := PeekMessageW(Msg, 0, 0, 0, PM_REMOVE)
    else
      MsgExists := PeekMessageA(Msg, 0, 0, 0, PM_REMOVE);

    if MsgExists then
    begin
      Result := True;
      if Msg.Message <> WM_QUIT then
      begin
        Handled := False;
        if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
        if not IsPreProcessMessage(Msg) and not IsHintMsg(Msg) and
          not Handled and not IsMDIMsg(Msg) and
          not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
        begin
          TranslateMessage(Msg);
          if Unicode then
            DispatchMessageW(Msg) //  <-----------------------------
          else
            DispatchMessageA(Msg);
        end;
      end
      else
      begin
  {$IF DEFINED(CLR)}
        if Assigned(FOnShutDown) then FOnShutDown(self);
        DoneApplication;
  {$ENDIF}
        FTerminate := True;
      end;
    end;
  end;
end;

P.S.
Извлек проект из библиотеки, сделав из него обычный проект, и создание компонентов работает нормально. но почему из dll то не хочет создавать именно TChart?

В итоге сделал строго 3 чарта, в принципе этого хватит для моих задач.