Foros Club Delphi - TFileStream

Hola a todos, espero se encuentren bien estoy atorado con lo siguiente:
Tengo un TFileStream y deseo abrir un archivo para escritura pero que no borre los
datos que tengo sino que agrege lo que escribo al final del archivo, este es el codigo:

Código:

var

  F : TFileStream;

  S : String;

begin

  F := TFileStream.Create('C:\archivo.xxx', MODO);

  S := 'Hola';

  F.Write(S, Length(S));

  F.Free;

end;

Ya probe con MODO = 'fmCreate', 'fmOpenWrite' y 'fmOpenReadWrite' pero se borra lo que tengo en el archivo cuando vuelvo a ejecutar el codigo, en este ejemplo desearia que pase lo siguiente:
Ejecuto el codigo una vez:
Archivo de texto: 'Hola'
Ejecuto el codigo dos veces:
Archivo de texto: 'HolaHola'
Ejecuto el codigo tres veces:
Archivo de texto: 'HolaHolaHola'

En C++ lo hago con así:

Código:

  char s[4] = "Hola";  

  ofstream f("C:\\archivo.xxx", ios::app);

  f.write((char *)&s, sizeof(s));

  f.close();

Espero me puedan ayudar.
Saludos

dvz