如何在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;