TFileStream und binäre Daten

[Ralf Stehle]

Ich muss eine Datei binär einlesen, einzelne Bytes ändern und dann wieder in einer Datei speichern.
Leider scheitere ich bereits am Einlesen, obwohl ich ausgiebig im Forum gesucht habe:

Delphi-Quellcode:

procedure TEKG.ReadStream(const SelectedRoot, SelectedFile: string);
var
  s: string;
  i, BUFFERSIZE: integer;
  ByteArray: array of byte;
begin
  //Dateigröße feststellen
  with tfilestream.create(SelectedRoot + SelectedFile ,fmopenread or fmShareDenyNone) do
  try
    size;
    BUFFERSIZE := Size;
  finally
    Free;
  end;

  //Arraygröße festlegen
  SetLength(ByteArray, BUFFERSIZE);

  i := 0;
  with TFileStream.Create(SelectedRoot + SelectedFile,  fmOpenRead) do
  try
      Read(ByteArray, BUFFERSIZE);
  finally
    Free;
  end;
  
  //zum testen der Funktion lesbare Zeichen in Char umwandeln und in Memo1 anzeigen
  for i := 1 to BUFFERSIZE do begin
     if ByteArray[i] in [65..90, 97..122, 196, 214, 220, 228, 246, 252] 
     then s := s + Char(ByteArray[i])
  end;
      Memo1.text := s;
end;

Wenn ich das ganze mit einem statischen ByteArray mache, funktioniert es seltsamerweise korrekt. Aber ich weiß doch zum Entwurfszeitpunkt noch nicht, wie groß die zu lesende Datei ist.

Wer kann mir weiterhelfen und auch gleich sagen, wie ich anschließende zum Beispiel das Byte ByteArray[249] in die Zahl 09 ändere und das ganze in eine neue oder diesselbe Datei speichere?

Vielen Dank