Inhalt eines Memos binär speichern?

[Yakumo500]

Hallo,

Ich habe eine Frage bezüglich: Dateien binbär speichern.
Die binäre Datei soll dann nicht einfach von jedem Editor gelesen werden können wie zb Notepad.
Um einzelne Strings zu speichern und zu lesen habe ich bereits Code gefunden.

(Speichern:

Delphi-Quellcode:

var
  FileHandle  : Integer;
  Version     : Integer;
  Period      : Integer;
  Digit       : Integer;
  c_copyright : String;
  Symbol      : String;
begin
  Version       := 400;
  Period        := 1;
  Digit         := 6;
  c_copyright   := '(C)opyright 2003, MetaQuotes Software Corp.';
  Symbol        := 'EURUSD';
  FileHandle    := FileCreate(Path);
  FileWrite(FileHandle, Version, SizeOf(Version));
  FileWrite(FileHandle, c_copyright, SizeOf(c_copyright));
  FileWrite(FileHandle, Symbol, SizeOf(Symbol));
  FileWrite(FileHandle, Period, SizeOf(Period));
  FileWrite(FileHandle, Digit, SizeOf(Digit));
  FileClose(FileHandle);
end;

Lesen:

Delphi-Quellcode:

var
  FileHandle  : Integer;
  Version     : Integer;
  Period      : Integer;
  Digit       : Integer;
  c_copyright : String;
  Symbol      : String;
begin
  FileHandle    := FileOpen(Path, fmOpenRead);
  FileRead(FileHandle, Version, SizeOf(Version));
  FileRead(FileHandle, c_copyright, SizeOf(c_copyright));
  FileRead(FileHandle, Symbol, SizeOf(Symbol));
  FileRead(FileHandle, Period, SizeOf(Period));
  FileRead(FileHandle, Digit, SizeOf(Digit));
  FileClose(FileHandle);
end;

)

Aber wie sieht es aus wenn ich eine StringList habe, deren Länge sich ändern kann?