SearchRec sale antes del termino

[Paulao]

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;