如何快速操作『大文件流』

var
  Target:TMemoryStream;
  source1:TFileStream;
  fileName,filename1:String;
begin
   source1  :=  TFileStream.Create('g:\DELPHI_V81.0.rar',  fmOpenRead);
//   source1  :=  TFileStream.Create('e:\a.rar',  fmOpenRead);   Target:=TMemoryStream.Create;
   Target.CopyFrom(source1,source1.Size);
   Target.Free;
   source1.Free;
上面的代码如果打开的文件大于100M时操作需要很长时间如何实现快速操作?