Agregar archivos en un TFileStream

[Ramsay]

Hola , estoy estudiando TFileStream , estoy tratando de agregar dos ejecutables o archivos cualquiera en un TFileStream que crea un ejecutable final , el tema es que no encuentro documentacion sobre como hacer el agregado de un archivo en un TFileStream.

Código Delphi [-]
procedure TFormulario.CrearArchivoStream;
var
  F: TFileStream;
  s: String;
  archivo1,archivo2:string;

begin
  archivo1 := 'test1.exe';
  archivo2 := 'test1.exe';
  F := TFileStream.Create( ExtractFilePath( Application.ExeName ) + 'prueba.exe', fmCreate );
  s := 'Añadiendo información al archivo de texto.' + #13 + #10;
  F.Write( s[1], Length( s ) );
  F.Free;
end;

¿ Como se podria hacer ?

[ecfisa]

Hola Ramsay.

Revisa este enlace: How do I concatenate two files into one?

Saludos

[Ramsay]

Si , era eso gracias , debi usar "concatenar" en google por eso no encontre ese link , ¿ y para separarlo conoces algun link de ayuda ? , lei que se trataba algo de copystream pero el ejemplo estaba incompleto.

[ecfisa]

Hola Ramsay.

Tu última pregunta no tiene relación con la que inició el tema, por favor crea un nuevo hilo con ella.

Saludos y gracias por tu colaboración

[Ramsay]

Ok , ahora lo hago.