var
Origen, Destino, aPath : String;
sr: TSearchRec;
begin
aPath := 'C:\origen\';
if FindFirst(aPath + '*.jpg', faAnyFile, sr) = 0 Then
repeat
Origen := aPath+sr.Name;
Destino := 'C:\destino\'+sr.Name;
MoveFile(PChar(Origen), PChar(Destino));
until FindNext(sr) <> 0;
SysUtils.FindClose(sr);
end;