delphi - CheckBoxList 選択したファイルを方向に移動

Question

私のプログラムは特定のファイル（Mp3、wmvなど）を見つけてCheckBoxListに書き込みます。次に、ファイルの一部またはすべてを選択して、それらのファイルを選択したディレクトリに転送します。問題は、選択したファイルのみを移動する方法がわからないことです。

ちょっとしたコードを次に示します。

procedure TfrMain.Button2Click(Sender: TObject);
var
  dirName : String;
begin
dirName := Edit3.Text;
  CreateDir(dirName);
if DirectoryExists(dirName) then MoveFile(PChar(Path), PChar(DirName));
end;

procedure TfrMain.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked = true then CheckListBox1.SelectAll;
end;

前もって感謝します。