我这样写没错吧！关于调用vc dll中数据类型问题.help

vc中函数原型
float frequency1(int blocklen,char * filename)
其中filename试文件名delphi中
定义
function Frequency1(blocklen:integer;var fp:Pchar):double;far;external('C:\symmetry_modules.dll');调用
var filename:pcharfilename:=pchar('c:\crytext')
return:=frequency1(128,filename)
调试出错.
这样写应该没错吧。