公用的函数库是可放在USES INTERFACE 下产单元,像Windows,SysUtils单元都是
//新建一个公共单元
unit ValChk;
{Check the validatation of input}
interface
uses
Windows,SysUtils;//你想引用的公共单元
function IdentityIDChk(strID:string):boolean;
implementation
function IdentityIDChk (strID : string) : boolean;
var
i,len : integer;
begin
//代码
end;
end.
然后在你要用到该函数的单元里USES该单元。