Du gibst sItem frei, obwohl es noch gebraucht wird.
Delphi-Quellcode:
function ListGetText(hList: HWND; Item: Integer): PWideChar;
...
begin
...
Result := sItem;
FreeMem(sItem, nLEN); // <<<--------- Das kann nicht gut gehen
end;
Gib einen WideString zurück.