saludos.
aqui te agrego una variación de un procedimiento que te puso ecfisa en
este hilo
con el cual puedes mover archivos de de un directorio a otro.
Código Delphi
[-]
procedure mover(const Ruta: string);
var
SR: TSearchRec;
begin
if FindFirst(Ruta+'\*.JPG',faArchive, SR) = 0 then
begin
repeat MoveFile(PChar(ruta+'\'+SR.Name),PChar('c:\destino'+'\'+sr.Name));
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
mover('c:'); end;