请问DLL文件在文件中如何调用 兄弟求各位大哥了(100分)

小弟现有一个sasbmkq.dll 在VFP中作如下应用
Declare long _FastGetDataNum@8 in sasbmkq.dll as getdataNum long port, long jh
declare _FastGetData@4 in sasbmkq.dll as gdata string (@s)
num=getdatanum(val(substr(thisform.combo1.value,4,1)),jhx)
thisform.olecontrol1.value=100*n/num
if gdata(@s)
fput(ffile,s)
现问在DELHI中如何调用

声明形式：
function aaa(i:integer):integer;stdcall;external 'sasbmkq.dll';

网上一搜一大把

动态调用的例子:
procedure TForm1.Button1click(sender:Tobject);
var
UserPWD: widestring;
FunHandle:THandle;
DecryptPWD:Function(Tmp:widestring):widestring;stdcall;
begin

if UpperCase(Edit1.Text) =UserName then
begin

try
FunHandle:=LoadLibrary('Password.dll');
@DecryptPWD:=GetProcAddress(FunHandle,'DecryptPWD')
if @DecryptPWD<>nil then
begin
UserPWD:=DecryptPWD(PassWord);
end;
finally
@DecryptPWD:=nil;
FreeLibrary(FunHandle);
end;

end;

接受答案了.