Problema con archivo que viene de un Storage
 

Tengo una aplicacion que busca en un Storage los archivos. Esta lista que estas en mi Storage deberia estar ordenada asi:
000001.tif,000002.tif,000003.tif y haste en fin del archivo, pero quando se va al Storage la sequncia no es ordenada, quedando asi:
000751.tif,000058.tif,000001.tif y asi se va, sin ordenacion. Sabemos que es del storage(Seagate), pues lo mismo tiene un aplicativo que hace su gerenciamiento. Ya intentamos sacar afuera este aplicativo, pero no todo. Ya hablamos con la Seagate, pero nosotro y nin ellos conseguimos hacer del Storage un HD normal, pues sin el aplicativo el no puede estar en la red solo. Entonces entendemos que la solucion debe vir de mi aplicacion o comprar otra marca de Storage. Ya pense en crear una lista y cargar todos los archivos para esta lista, ordenar(sort) y despues ir haciendo download de la lista para un folder de destino. Pero tenemos que pensar en una falta de energia, pues deve continuar de onde lo ha parado. Cuando si copia un archivo, en realid el es cambiado para otra carpeta y debe ser deletado del origen y de la lista tambien. Estoy tenendo dificultad para llenar la lista y hacer todo esto.
Si crio una lista asi:
List := TList<?>.Create(); lo que debo poner en el tipo de lista(?). Si for String, yo solo hago una copia del nombre del archivo, cierto? Creo que debo tener una lista de Object, pero como hago esto? Qualquer ayuda es bienvenida. Gracias a todos.

De la Cara Oculta de Delphi 4, del maestro Marteens:

"

La posibilidad más interesante de estas listas (Tstrings), y la más
desaprovechada, es poder almacenar punteros a objetos arbitrarios asociados
con las cadenas. A estos punteros se accede mediante la propiedad vectorial

"
Busca en las páginas 262 y 263, por si te sirve para lo que buscas.

Saludos

Hizo asi, pero me lo da un error: cannot Open file"192.168.1.109\Teste\MyPicture\nombre_archivo.tif"
Abajo mis codigos. Lo que no estas cierto? Gracias a todos!!!

Código Delphi [-]
procedure TCopiaStream.FileCopy(const sourcefilename, targetfilename: String);
Var
 S, T: TFileStream;
begin
   S := TFileStream.Create( sourcefilename, fmOpenRead );
 try
   T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );
   try
     T.CopyFrom(S, S.Size ) ;
   finally
     T.Free;
   end;
 finally
   S.Free;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Path_or := '\\192.168.1.109\teste\My Pictures\1912-11 1 NOVEMBRO - 31 DEZEMBRO\*.tif';
  Path_de := '\\192.168.1.109\teste\My Pictures\Destino\';
  vStream := TCopiaStream.Create(path_or,path_de);
end;