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