有两种解决办法，一种就是上楼说的，定义成class function静态方法，第二种就是普通的方法：
Delphi/Pascal code

var
AForm : TForm;
begin
AForm := Self.ActiveMDIChild;
if AForm <> nil then
(AForm as TForm2).func('Hello');
end;

这两种方法都必须在MDI窗体中uses子窗体。

静态方法就一句话：
Delphi/Pascal code

TForm2.func2(1);

form2窗体两个被调方法
Delphi/Pascal code

TForm2 = class(TForm)
private
{ Private declarations }
public
function func(Astring : string) : Boolean;
class function func2(AInteger : Integer) : Boolean;
{ Public declarations }
end;