Динамический TRzPageControl и удаление его вкладок

[garengobit]

В приложении динамически создаю вкладки для RzPageControl.

var
  Page : TRzTabSheet;
  E : TSynEdit;
begin
Page := TRzTabSheet.Create(PageControl1);
with Page do
PageControl := PageControl1;
Page.Caption:= 'Новый файл';
E := TSynEdit.Create(Page);
with E do
E.Parent := Page;
E.Highlighter := LuaSyn;
E.Align := alClient;
E.Gutter.ShowLineNumbers:=True;
E.Ctl3D:=False;
E.BorderStyle:=bsNone;
PageControl1.ShowCloseButton := True;
PageControl1.ActivePageIndex := PageControl1.PageCount - 1;

Создал обработчик события для кнопки Закрыть : OnClose.

begin
AllowClose := True;
begin
if PageControl1.PageCount < 1 then
SaveBtn.Enabled := False; //Кнопка Сохранить
UndoBtn.Enabled := False; //Кнопка Отменить
end;
end;

Вот в чем проблема, при полном удалении страниц RzPageControl должны перестать действовать кнопки Сохранить и Отменить. А они перестают действовать уже при первом же нажатии на Закрыть, хотя страницы на RzPageControl еще есть??