procedure TForm1.Button1Click(Sender: TObject);
var
 FileStream,BakFileStream : TMemoryStream;
 FSize,
 i: Integer ;
begin              //Split
  FileStream := TMemoryStream.Create ;
  try
    FileStream.LoadFromFile('F:\test\BackProg.exe');
    FileStream.Position := 0 ;
    FSize := FileStream.Size ;
    I := 0 ;
    while true do
    begin
      inc(i);
      if (FileStream.Size - FileStream.Position >= 402400) and
         ((FileStream.Size - FileStream.Position) > 0)then
      begin
         with TMemoryStream.Create do
         begin
           try
             CopyFrom(FileStream,402400);
             SaveToFile('F:\test\testSTr' inttostr(i));
           finally
             Free ;
           end;
         end;
      end else if (FileStream.Size - FileStream.Position > 0) then
      begin
         with TMemoryStream.Create do
         begin
           try
             CopyFrom(FileStream,FileStream.Size - FileStream.Position);
             SaveToFile('F:\test\testSTr' inttostr(i));
           finally
             Free ;
           end;
         end;
      end else
         Break ;
     end ;      finally
    FreeandNil(FileStream);
  end;
end;    procedure TForm1.Button2Click(Sender: TObject);
var
 FileStream,BakFileStream : TMemoryStream;
 FSize,
 i: Integer ;
Begin                  //BtnMergeClick
  FileStream := TMemoryStream.create ;
  try
    i := 0;
    inc(i);              // 取得來源的檔案
    while FileExists('F:\test\testSTr' inttostr(i)) do
    begin
      BakFileStream := TMemoryStream.Create ;
      with BakFileStream do
      begin
        try
          LoadFromFile('F:\test\testSTr' inttostr(i));
          Position := 0 ;
          FileStream.CopyFrom(BakFileStream,BakFileStream.Size)
        finally
          Free ;
        end;
      end;
      inc(i);
    end;
  finally
    FileStream.SaveToFile('F:\test\test.exe');
    FileStream.Free;
  end;
end ;