您使用的是全局变量Form2，该变量在TForm2对象仍在构造时尚未赋值（或根本没有赋值）。
您需要更改代码，使其在构造过程中不依赖于该变量（最好将其完全删除，除非TForm2是在启动时自动创建的，这听起来并不像是自动创建的）。
例如，将表单的Self指标，或什至是TLabel指标，当做DoLabel()的输入参数传递，例如：

procedure DoLabel(ALabel: TLabel);
begin
  ALabel.Caption := 'A';
end;

procedure DoFormStuff(AForm: TForm2);
begin
  // use AForm as needed...
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  DoLabel(Label1);
  DoFormStuff(Self);
end;

不过，在这种情况下，让DoFormStuff()（也可能是DoLabel()）成为TForm2类的成员而不是自由函数会更有意义：

procedure TForm2.FormCreate(Sender: TObject);
begin
  DoLabel;
  DoFormStuff;
end;

procedure TForm2.DoLabel;
begin
  Label1.Caption := 'A';
end;

procedure TForm2.DoFormStuff;
begin
  // use Self as needed...
end;