How to merge 541 files sequentially into one

Question

Delphi

How to merge files sequentially into one.
One to the end of the other, etc.
There are 541 files in total, 5 MB each.
So that the memory does not fly out.

Answer 1

var
i:integer;
my_stream:TMemoryStream;
my_filestrem:TFileStream;
//.........................................

  my_filestrem:= TFileStream.Create(ExtractFilePath(Application.ExeName)+Edit3.Text+'\file.mp4', fmCreate);

  for i := 0 to Memo2.Lines.Count - 1 do
  begin

    my_stream:=TMemoryStream.Create;
    try
      IdHTTP1.Get(Edit5.Text+Memo2.Lines.Strings[i], my_stream);
      my_stream.Position := 0;
      my_filestrem.CopyFrom(my_stream,my_stream.Size);
      //my_stream.SaveToFile(ExtractFilePath(Application.ExeName)+Edit3.Text+'\'+Memo2.Lines.Strings[i]);
    except
    end;
    my_stream.Free;

    Application.ProcessMessages;
  end;
  my_filestrem.Free;

Answer 2

Answer 3

Use TFileStream:

var
    out: TFileStream;
    in: TMemoryStream;
    i: Integer;
begin
    in := TMemoryStream.Create;
    out := TFileStream.Create(...);    
    try
        for i := 0 to files_count - 1 do begin            
            in.Clear;
            in.LoadFromFile(....);            
            out.WriteBuffer(in.Memory^, in.Size);
        end;
    finally
        in.Free;
        out.Free;
    end;
end;

Answer 4

Read a small portion of data from each file and write it to the end of the new file.

Answer 5

cat * >> new_file
Isn't this a solution or, as the author says, eats up memory?