Закрытие листа в PageControl [Delphi 7]

begin
if sRichEdit1.Modified then  // Если в мемо есть изменения текущего файла, то ...
  if MessageDlg('Сохранить текущий файл?',mtWarning, [mbYes, mbNo], 0) = mrYes then
   if CurFName<>'' then
    sRichEdit1.Lines.SaveToFile(CurFName)   // просто сохраняем
   else
    N4.Click;  // просим выбрать путь
end;

if sRichEdit1.Modified then

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if PageControl1.PageCount = 1 then
    Button1.Enabled := False
  else
    Button1.Enabled := True;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  PageControl1.ActivePage.Destroy;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var Tab: TTabSheet;
begin
  Tab := TTabSheet.Create(Self);
  Tab.PageControl := PageControl1;
end;

var Sheet:TTabSheet;
begin
with TsRichEdit.Create(Self) do
  begin
  Sheet:=TsTabSheet.Create(sPageControl1);
Sheet.Caption:='Новая страница  '+IntToStr(sPageControl1.PageCount)+'   ';
Sheet.PageControl:=sPageControl1;
sRichEdit1 := TsRichEdit.Create(Self);
sRichEdit1.Parent := Sheet;
sRichEdit1.Align:=alClient;
sRichEdit1.Font:=sRichEditMain.Font;// чтобы брал шрифт и размер с главной формы, а она скрыта
end;
end;

  Application.MainFormOnTaskbar := True;

var Sheet:TTabSheet;
begin
with TsRichEdit.Create(Self) do
  begin
  sPageControl1.ShowCloseBtns:=True;
  Sheet:=TsTabSheet.Create(sPageControl1);
Sheet.Caption:='Новая страница  '+IntToStr(sPageControl1.PageCount)+'   ';
Sheet.PageControl:=sPageControl1;
sRichEdit1 := TsRichEdit.Create(Self);
sRichEdit1.Parent := Sheet;
sRichEdit1.Align:=alClient;
sRichEdit1.Font:=sRichEditMain.Font;
end;
end;

sRichEdit1 := TsRichEdit.Create(Self);
sRichEdit1.Parent := Sheet;
sRichEdit1.Align:=alClient;
sRichEdit1.Font:=sRichEditMain.Font;