GetModuleName wirft Exception

[shmia]

Wozu diese Zwischenpuffer?

Delphi-Quellcode:

function BplPath(const BplName: String): AnsiString;
  var MHnd: Cardinal;
begin
   MHnd := GetModuleHandleW(PWideChar(BplName));
   if MHnd = 0
   then Result := 'nicht geladen'
   else begin
         Result := GetModuleName(MHnd);
        end;
   Result := BplName+': "'+Result+'"';
end;