PB调用delphi的dll问题,在循环中调用2次没有问题,第三次就直接将程序挂掉.

调用的函数是这样写的
我实在想不出有什么东西没有释放还是什么.
function pop_getmail (mail_id :Integer ;out mail_subject :ShortString) :Integer ;stdcall;
var
  mess :TIdMessage ;
begin
  mess := TIdMessage.Create(nil);
  mess.Clear ;
  try
    pop.RetrieveHeader(mail_id,mess) ;
  except
    on e:Exception do ShowMessage(e.Message);
  end ;
  mail_subject := Trim(mess.Subject);
  mess.Free ;
  Result := 1 ;end ;高手指点一下.