SearchRec sale antes del termino

[x_aguilarf]

El código esta mal, el FindNext debe de estar dentro del bucle:

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;
    I := FindNext(SR);
  end;
end;

Saludos