Ошибка при закрытии вкладки созданой програмно в PageControl

procedure AddPage(ACaption: string; AControl: TPageControl);
var NewPage: TTabSheet ;
    NewSEdit: TRichEdit;
begin
  NewPage := TTabSheet.Create(AControl.Owner);
  NewPage.PageControl := AControl;
  NewPage.Caption := ACaption;
  NewPage.Show;
  AControl.TabWidth :=0;
  NewSEdit :=  TRichEdit.Create(Teditor// главная форма);
  with NewSEdit do
    begin
       // здесь параметры
    end;
    NewSEdit.Name:='SEdit'+IntToStr(AControl.PageCount);
    NewSEdit.Clear;
end;

PageControl.ActivePage.Destroy

procedure TForm1.BtDestroy(Sender: TObject);
var
  I: Integer;
begin
  if PageControl1.PageCount>0
    then
      begin
        for I := 0 to PageControl1.ActivePage.ControlCount - 1 do
          PageControl1.ActivePage.Controls[I].Destroy;
        PageControl1.ActivePage.Destroy;
      end
    else ShowMessage('dimafe6 ->  У вас нет вкладок и следвательно PageControl1.ActivePage выдаст ошибку');
end;