On Button click close all TPageControl TTabSheet`s

[implementation]

Delphi-Quellcode:

procedure TForm1.MenuItem54Click(Sender: TObject);
begin
  reg[Pages.ActivePage.Tag].synedit.free;
  Pages.ActivePage.Free;                       // Hier liegt das Problem
  UpdateStatus('Done.');
end;

Pages ist das TPageControl.