TFileStream - EOutOfMemory

[xineohp]

Hi,

ich versuche eine Datei per FileStream auszulesen, aber ich bekomme immer einen EOutOfMemory Error und habe keine Ahnung was ich falsch mache. Die Testdatei ist im übrigen nicht mal ein Kb groß, zu ein einziger Satz.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Stream: TFileStream; s: String; c: Cardinal;
begin
  Stream := TFileStream.Create('C:\test.txt', fmOpenRead );

  repeat
    Stream.Read(c, 4); // Größe einlesen
    SetLength(s, c); // Länge des Strings setzen
    Stream.Read(s[1], c); // String einlesen
    memo1.Lines.Add(s);
  until Stream.Position >= Stream.Size;

  Stream.Free;
end;