为什么关闭父窗体 Self.Parent.Free;会出现异常

为什么关闭父窗体 Self.Parent.Free;会出现错误
提示错误 abstract error


我是在RzPageControl1创建个form
  vSheet := TRzTabSheet.Create(self);
  vSheet.PageControl := self.RzPageControl1;
  vForm := TForm2.Create(self);
  vForm.FormStyle := fsNormal;
  vForm.BorderStyle := Forms.bsNone;
  vForm.Parent := vSheet;
  vForm.Align := alClient;
  vForm.Caption:=formCaption;
  vForm.Show;
  vSheet.Caption:= vForm.Caption;
  RzPageControl1.ActivePage := vSheet;


然后在RzPageControl的子窗体form关闭RzPageControl1
procedure TForm2.Button1Click(Sender: TObject);
begin
close;
Self.Parent.Free;
end;

[解决办法]

Delphi(Pascal) code

procedure TForm2.Button1Click(Sender: TObject);var  p:Ttabsheet;begin  Self.Close;  p:=TTabSheet(Self.Parent);  Self.Parent:=nil;  //Self.Parent.Free;// 这个tab关闭不了啊  //APageControl.ActivePage.Destroy;// 这个还是出现 abstract error  p.free;end;