Hizo una busca usando SearchRec. El que pasa es que quando el encuentra una carpeta vacia, el sale del loop Repeat..Until o While. Asi me lo hizo:
Código Delphi
[-]function Busca(Dir: TJvEditDirectory): Boolean;
var
Sr. TSearchRec;
I: Integer;
begin
I := FindFirst(Dir.Directory + *.*, faAnyFile,SR);
while I = 0 do
begin
if(SR.Name <> '.') and (SR.Name <> '..') then
Llama_mi_funcion_para_mover_archivo;
end;
I := FindNext(SR);
end;