如何在DLL的输出函数中返回字符串给调用者

function aa( outstr: PChar ): Boolean; stdcall;
var
  straa: string; //必须通过局部变量中转，不能直接使用var参数
begin
  Result := False;
  straa := 'abcd';
  Move(straa[1], outstr^, Length(straa));

  Result := True;
end;

调用：

function aa(var outstr: string ): Boolean;
var
  buffer: array[0..MAX_PATH-1] of char;
begin
  FillChar(buffer, MAX_PATH, 0);
  Result := Taa(funcaa)(buffer);
  outstr := buffer;
end;