delphi 传输多个文件 - Delphi / 网络通信/分布式开发

写得程序已经可以传输一个文件。
我现在的问题是，我想传输多个文件怎么办？

---

不知道你怎么设计的

---

unit Frm_Client;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FileCtrl,ScktComp, StdCtrls, XPMan;
const
  Buffersize=1048576; //41943040; //40MB
  CPort = 6656;

type
  TForm1 = class(TForm)
  SClient: TClientSocket;
  BtnConn: TButton;
  BtnSelFile: TButton;
  GBxStatus: TGroupBox;
  MmStatus: TMemo;
  EDIPAddr: TEdit;
  Label1: TLabel;
  OpenDialog1: TOpenDialog;
  Label2: TLabel;
  EResourceFiles: TEdit;
  Label3: TLabel;
  ListBox1: TListBox;
  BtnsSplit: TButton;
  BtnAdd: TButton;
  BtnBrowse: TButton;
  EDestination: TEdit;
  Label6: TLabel;
  SaveDialog1: TSaveDialog;
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure SClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  procedure SClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  procedure SClientRead(Sende