delphi 使用uses无法引用其他单元函数

代码是这样的：unit Unit2;interfaceuses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls ,Math ;type
   TForm1 = class(TForm)
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Image1: TImage;
     Image2: TImage;
     Image3: TImage;
     Image4: TImage;
     Timer1: TTimer;
     Label4: TLabel;
     Edit1: TEdit;
     Button1: TButton;
     Button2: TButton;
     Button3: TButton;
     Label5: TLabel;
     procedure FormOnCreate(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
     procedure Form1CloseQuery(Sender: TObject; var CanClose: Boolean);
  
   private
     { Private declarations }
     SpendTime:Integer;
     RandomData:array of Integer;   public
{ Public declarations }   end;var
   Form1: TForm1;implementationuses Unit1;
{$R *.dfm}以下略------------------------------------------
unit Unit1;interfaceuses
   SysUtils,Math ;
implementation
function TestFun(str : string):integer ;
begin
     TestFun:=length(str);
end;end.
------------------------------------------
编辑后 unit2 中无法访问 unit1 中的函数 已经使用了 uses啊 为什么还是没办法呢