implementationuses Unit2, Unit3;var
  a:TFrame2;
  b:TFrame3;//这个是什么类呀.
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  if assigned(a) then  a.Free
 //请问ASSIGNED各A.FREE是什么意思,
  else
  if assigned(b) then  b.Free;
  b:=TFrame3.Create(self);
    TFRAME是什么类呀,SELF是不是正常现视的意思呀?
  b.Parent:=Panel1;
   //PARENT和PANEL1是什么意思
  b.Align:=alClient;
   //ALIGN和ALCLIENT也不明白.
  b.Show;
end;