一个简单的程序，为什么panle不见了，

procedure TForm1.Button1Click(Sender: TObject);
var fram1:TFrame;
begin
                 fram1:=TFrame.Create(self);
                 fram1.Parent:=Panel1;
                 fram1.Show;
         //        fram1.Refresh;
end;
点下去后，怎么panle不见了，procedure TForm1.Button2Click(Sender: TObject);
var f2:TForm3;
begin
    f2:=TForm3.Create(self);
    f2.Parent:=Panel1;
    f2.Show;end;
点下去后怎么panel没有任何反映。