TFileStream crasht bei Dateiname=285 Zeichen mit Unicode

[KodeZwerg]

@himitsu: ShortName ....

Delphi-Quellcode:

function GetShortPathString(sLongPathName : string) : string; 
begin 
  Result:=''; 
  SetLength(Result,MAX_PATH+1); 
  GetShortPathName(PChar(sLongPathName),PChar(Result),MAX_PATH); 
  SetLength(Result,StrLen(PChar(Result))); 
end;