Почему DLL Delphi может использовать WideString без использования ShareMem?

Дэвид отвечает на другой вопрос, показывает DLL-функцию Delphi, возвращающую WideString. Я никогда не думал, что это возможно без использования ShareMem.

Моя тестовая DLL:

function SomeFunction1: Widestring; stdcall;
begin
  Result := 'Hello';
end;

function SomeFunction2(var OutVar: Widestring): BOOL; stdcall;
begin
  OutVar := 'Hello';
  Result := True;
end;

Моя программа вызывающего абонента:

function SomeFunction1: WideString; stdcall; external 'Test.dll';
function SomeFunction2(var OutVar: Widestring): BOOL; stdcall; external 'Test.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  W: WideString;
begin
  ShowMessage(SomeFunction1);
  SomeFunction2(W);
  ShowMessage(W);
end;

Работает, и я не понимаю, как это сделать. Соглашение, о котором я знаю, - это тот, который используется в Windows API, например Windows GetClassNameW:

function GetClassNameW(hWnd: HWND; lpClassName: PWideChar; nMaxCount: Integer): Integer; stdcall;

Значение вызывающего абонента обеспечивает буфер и максимальную длину. DLL Windows записывает в этот буфер с ограничением длины. Вызывающий абонент выделяет и освобождает память.

Другим вариантом является то, что DLL выделяет память, например, с помощью LocalAlloc, и Caller освобождает память, вызывая LocalFree.

Как распределяется и освобождается память с моим примером DLL? Существует ли "волшебство", потому что результат WideString (BSTR)? И почему не объявлены API Windows с таким удобным соглашением? (Существуют ли какие-либо известные API Win32, которые используют такое соглашение?)

---

EDIT:

Я протестировал DLL с помощью С#.
Вызов SomeFunction1 вызывает AV (Attempted to read or write protected memory).
SomeFunction2 работает нормально.

[DllImport(@"Test.dll")]
[return: MarshalAs(UnmanagedType.BStr)]
static extern string SomeFunction1();

[DllImport(@"Test.dll")]
[return: MarshalAs(UnmanagedType.Bool)]
static extern bool SomeFunction2([MarshalAs(UnmanagedType.BStr)] out string res);

...

string s;
SomeFunction2(out s);
MessageBox.Show(s); // works ok
MessageBox.Show(SomeFunction1()); // fails with AV!

Ниже приведено followup.