//下面是我写的pas
//文件名 func1.pas
unit func1;

interface
type
    public
         function msgfunc(s:string):string;
    end;
implementation
//------------------------------------------------------
function msgfunc(s:string):string;
begin
Result:='this is come from a pas file';
end;
//------------------------------------------------------
end.

//还有，然后该怎么调用。是否 use里填加func1 ,然后就可以使用函数msgfunc了？