一个简单问题

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  form2:=TForm2.Create(nil);//[Error] Unit1.pas(38): Undeclared identifier: 'form2'
   form2.show;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  if label1.Visible:=ture then
   begin
    label1.Visible:=false;
     button1.Caption:='show';
      end else
       begin
        label1.Visible:=true;
         button1.Caption:='hide';
       end;
end;procedure TForm2.Button1Click(Sender: TObject);
begin
     form2.release;
end;end.

Answer 1

procedure TForm2.Button1Click(Sender: TObject); 
begin 
    form2.release; 
end; end. 
你这里用到了form2，但是没有引用它
var 
  Form1: TForm1; 
implementation 
uses unit2;
{$R *.dfm}
在上面地方加多红色那句看看 

Answer 2

form2:=TForm2.Create(nil);
你的TForm2是在别的单元的吧？你哪个单元有TForm2就要uses哪个这个最好在TForm2的单元里弄，在这弄一团浆糊。
procedure TForm2.Button1Click(Sender: TObject); 
begin 
    form2.release; 
end;