熟悉PB的delphi开发者朋友请进....

兄弟最近在开发一个扫描枪的接口驱动,目前遇到一个很奇怪的问题,接口函数是通过dll的方式调用的,在PB中调用一切正常,而转到Delphi中,总是要报端口无法打开的错误....运行环境完全相同,所以很不理解...现在把PB中的函数声明与实现,以及Delphi中的函数声明与实现列出来,大家帮我分析一下,问题可能出在哪里?
PB中:
type prototypes
Function string print_rm ( int var1) LIBRARY "do.dll"
end prototypesevent clicked;int var1
string retcodevar1=1
retcode = print_rm(1)
sle_1.text = retcodeend eventdelphi中function print_rm(var1: integer): string; stdcall; external 'do.dll';var
 port: integer;
  kl_str: string;
begin
  port := 1;
  kl_str := print_rm(port);
  memo1.Text := kl_str;
end;