function move(source,target,param:string):string;
var yedekle:tsearchrec;
hata:integer;
begin
hata:=0;
forcedirectories(target);
findfirst(source+'\'+param,faanyfile,yedekle);
if yedekle.name<>'' then
begin
repeat
if renamefile(source+'\'+yedekle.name, target+'\'+yedekle.name)=false then begin hata:=hata+1; copyfile(pchar(source+'\'+yedekle.name), pchar(target+'\'+yedekle.name), false); end;
application.ProcessMessages;
until findnext(yedekle)<>0;
//. ve .. dizinleri aktarılamaz bu yüzden 2'den büyük istendi
if hata>2 then result:=source+#13+' hala bazı dosyalar içeriyor' else result:='Dosya taşıma başarılı';
end
else result:=source+#13+' yok veya dosya içermiyor';
findclose(yedekle);
if (param='*.*') then removedirectory(pchar(source));
end;

kullanımı:
move('c:\belgelerim','c:\deneme','*.*');