Mit TFileStream aus einer Datei lesen

[Viktorii]

Hallo zusammen.

Ich arbeite zum ersten Mal mit Streams und das Schreiben in eine Datei klappt auch schon ganz gut.

Allerdings kommt bei meine Ausleseroutine nicht raus - soll heißen in dem Array stehen nur Nullen

So habe ich es gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream      : TFileStream;
  SearchRec       : TSearchRec;
  NumberOfBytes   : Int64;
  DataToParse     : array of byte;
begin
  FileStream := TFileStream.Create('StreamTest.txt', fmOpenRead);
  try
    FindFirst('StreamTest.txt', faAnyFile, SearchRec);
    NumberOfBytes := SearchRec.Size;
    SysUtils.FindClose(SearchRec);
    SetLength(DataToParse, NumberOfBytes);

    FileStream.Read(DataToParse, NumberOfBytes);
  finally
    FreeAndNil(FileStream);
  end;
end;

Wo liegt der Fehler?
Vielen Dank.