var FSource,FTarget:File;
     Buffer:array[0..4095] of byte;   // это твой буффер в памяти
     Rb,Wb:integer;
begin
   Assign(FSource,'SourceFile.txt');
   reset(FSource,1);
   Assign(FTarget,'TargetFile.txt');
   rewrite(FTarget,1);
   repeat
       Rb:=BlockRead(FSource,Buffer,SizeOf(Buffer));
       Wb:=BlockWrite(FTarget,Buffer,Rb);
   until (Rb<>Wb) or (Rb=0);
   Close(FSource);
   Close(FTarget);
end;

    MemoryStream.LoadFromFile();
   
    DoSome(MemoryStream);    // сделаем что-то с тем, что в память прочитали. Например офигеем, если на вход 100-200Гб придет.
   
    MemoryStream.SaveToFile();