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


はにわ  2006-07-16 01:07:26  No: 22528  IP: 192.*.*.*

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

具体的には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;

編集 削除