FileStream: Falsche Ausgabe unter D2010

[luke2]

Hallo,

Kann mir jemand sagen, wieso es unter D2010 (also mit Standard-Unicodestrings) 1. ewig dauert, bis man mit folgendem Code eine 3KB Datei eingelesen hat und 2. wieso dabei nur Quark rauskommt?

Testcode:

Delphi-Quellcode:

var s:string;
begin
with tfilestream.Create('c:\test.txt',fmopenread) do try
  setlength(s,size);
  readbuffer(s[1],size);
  showmessage(s);
finally
  free;
end;

In der Datei steht der Text "test", aber als Ausgabe erhalte ich:
---------------------------
Project1
---------------------------
整瑳be
---------------------------
OK
---------------------------
Wenn ich "s" dagegen als ansistring deklariere, erhalte ich die korrekte Ausgabe.