動的フレームの再作成でエラー

はにわ 2006-07-16 10:07:26 No: 22528

動的フレームの再作成でエラーが出て困っています。

具体的にはform1上のボタンでフレーム表示（動的作成）、
フレームには自身を消すためのボタンを配置。

この状態で1度開放したものを再表示させるとエラーが出ます。
回避するにはどうしたらよいのでしょうか？

var a:tframe2;//別ユニットで定義

form：

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=tframe2.Create(self);
a.Top:=100;
a.Left:=100;
a.parent:=form1;
a.Show;
end;

frame：
procedure TFrame2.Button1Click(Sender: TObject);
begin
a.free;//freeでも同様にエラー
end;