DLL中函数参数为var出错！Invalid pointer opreation!

Question

DLL中的函数：
function DealStr(var str: String; len: integer): boolean; stdcall;
begin
  Result := True;
  Try
  if length(str) > len then
    str := copy(str,1,len);
  //MessageBox(0,Pchar(str),'test',0);
  except
    Result := False;
  end;
end;调用
function DealStr(var str: String; len: integer): boolean; StdCall; external 'TestDLL.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
  TmpStr: String;
  iLen: integer;
begin
  TmpStr := Trim(edit1.Text);
  iLen := StrToInt(Edit2.Text);  if DealStr(TmpStr,iLen) then
    ShowMessage('OK')
  else
    ShowMessage('NO');
    
  ShowMessage('New String is : '+TmpStr);
end;
最后报无效指针操作! 哪的问题？　谢谢