Puedes crear una lista (Tstringlist) y en el evento Oncreate del componente TSHChangeNotify añades todas las rutas de los archivos creados.
Mas o menos algo asi.
Código Delphi
[-]procedure TForm1.cnCreate(Sender: TObject; Flags: Cardinal; Path1: String);
begin
List.Add(Path1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Cfiles: TSHFileOpStructA;
I:integer;
begin
for I:=0 to List.Count -1 do
begin
with Cfiles do
begin
wnd := Application.Handle;
wFunc := FO_copy;
pFrom := PChar(List[i]);
pTo := PChar('Carpeta Destino');
fFlags := FOF_NOCONFIRMATION;
end;
SHFileOperation(Cfiles);
end;
end;
Un Saludo.