在delphi 中写了个dll，在pb9.0中调用要出错，请大家帮我看看是什么原因？

delphi中代码：
library Project1;

uses
SysUtils,
Classes,
ExtCtrls,
Jpeg,
Graphics;

{$R *.res}
procedure setpic(AOwner:TComponent;fromfile:pchar);stdcall;
var
Jpeg:TjpegImage;
tmpBmp:TBitmap;
image1:TImage;
image2:TImage;
begin
image1:= TImage.Create(AOwner);
image2:= TImage.Create(AOwner);
jpeg:=TjpegImage.Create();
tmpBmp:=TBitmap.Create;
try
image1.picture.LoadFromFile(fromfile);
Image2.Height:= 425;//新图像高度
Image2.Width := 512;//新图像宽度
Image2.Canvas.StretchDraw(Image2.ClientRect,Image1.Picture.Graphic);
image2.picture.savetofile(fromfile);
tmpbmp.loadfromfile(fromfile);
jpeg.Assign(tmpbmp);
jpeg.SaveToFile(fromfile);
finally;
Image1.Free;
Image2.Free;
jpeg.Free;
tmpbmp.Free;
end;
end;

exports
setpic;
begin
end.
pb中申明：SUBROUTINE SetPic(string fromfile) Library "project1.dll" Alias
For "setpic;ansi"//申明function也不行
pb中调用，setpic(ls_pathname)
pb中报错
怎么解决这个问题啊