delphi的.dpr中如何调用主窗体中的function?

冥界3大法王

.dpr 中（实际是.dll中）有下面一段代码：

[Asm] 纯文本查看 复制代码

function GetDllPath: string;
var
  ModuleName: string;
begin
  SetLength(ModuleName, 255); // 取得Dll自身路径
  GetModuleFileName(HInstance, PChar(ModuleName), Length(ModuleName));
  Result := PChar(ModuleName);
end;

Form1主窗体体也有一段相同的

[Asm] 纯文本查看 复制代码

function GetDllPath: string;
var
  ModuleName: string;
begin
  SetLength(ModuleName, 255); // 取得Dll自身路径
  GetModuleFileName(HInstance, PChar(ModuleName), Length(ModuleName));
  Result := PChar(ModuleName);
end;

如何 只写一次？
试过了uses 引用下，不行！