im HEX-Code geänderte Datei wieder speichern?

[ErazerZ]

Folgender Code schreibt einfach Hex Zeichen in einer Datei. Wobei zuerst in einem StringList gespeichert wird (hab ich nur jetzt ganz schnell zusammengetippt, natürlich kannst es besser machen wenns magst). Die Zeichen werden danach in einem array von bytes gespeichert und das wird dann in einer Datei geschrieben.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  n, len: Integer;
  s: string;
  sl: TStringList;
  ba: array of Byte;
  fs: TFileStream;
begin
  len := 0;
  sl := TStringList.Create;
  s := Memo1.Text;
  s := StringReplace(s, '$', '', [rfReplaceAll]);
  s := StringReplace(s, '0x', '', [rfReplaceAll]);
  sl.Delimiter := ' ';
  sl.DelimitedText := s;
  SetLength(ba, sl.Count);
  for n := 0 to sl.Count -1 do
  begin
    ba[n] := StrToInt('$' + sl[n]);
  end;
  sl.Free;
  fs := TFileStream.Create('c:\okay.txt', fmOpenWrite or fmCreate);
  fs.Write(Pointer(ba)^, Length(ba));
  fs.Free;
end;