[color=0050FF][b]拷贝文件[/b][/color]
procedure TForm1.Button1Click(Sender: TObject);
begin
  //参数1：源文件名
  //参数2：目标文件名
  //参数3：若目标文件存在，是否覆盖？True——覆盖，False——
  //       不覆盖。无论覆盖与否，系统都不会提示。
  copyfile('d:\sql.log','c:\abc.log',false);
end;

[color=0000FF][b]文件改名[/b][/color]：
  [b]Rename[/b](Var F : File, NewName : String);
  Rename(文件类型原文件名，字符串类型新文件名）；

[color=0000FF][b]字符串类型文件名转换成文件类型文件名：[/b][/color]
  [b]AssignFile[/b](Var F:file, FileName:String);
  Assignfile(文件类型文件名，字符串类型文件名);

例1：将D盘'sql.log'改名为'abc.log'。
procedure TForm1.Button2Click(Sender: TObject);
var
  fsour:file;
begin
  assignfile(fsour,'d:\abc.log'); //文件名类型转换
  rename(fsour,'d:\sql.log');     //文件改名
end;

例2：利用利用弹出的打开文件对话框和保存文件对话框改名，这是Dephi帮助里的一个例子。
procedure TForm1.Button1Click(Sender: TObject);
var
  f : file;
begin
  OpenDialog1.Title := 'Choose a file... ';
  if OpenDialog1.Execute then
  begin
    SaveDialog1.Title := 'Rename to...';
    if SaveDialog1.Execute then
    begin
      AssignFile(f, OpenDialog1.FileName);
      Canvas.TextOut(5, 10, 'Renaming ' + OpenDialog1.FileName +
                     ' to ' + SaveDialog1.FileName);
      Rename(f, SaveDialog1.FileName);
    end;
  end;

如果仅仅查D盘根目录下有没有*.ini文件，可用下面的语句进行查询：
if FileExists('D:\*.ini') then
    showmessage('文件已找到！');


否则请参考下面的文章：
这是一篇来自本网站的文章，也许可以解决你的问题。
http://www.programfan.com/article/showarticle.asp?id=161

在应用实践中，我们经常会用到文件查询功能。通过Win95中提供的查找功能，我们可以方便的找出磁盘上任何子目录下的文件，其原因是该查找功能可以遍历指定目录下的所有子目录中的文件。从编程角度讲，它实现了子目录级的文件查询。其实，这项功能并不难实现，关键是能理解并掌握懙莨閽这种程序设计思路。本人用Delphi实现了该项功能（任意子目录级），由于使用了懙莨閽，程序思路清晰，代码量小。 

实现方法： 
1． 获取当前目录下的所有下一级子目录。 
2． 存入字符串列表中（Tstrings）。 
其中，用到了几个API函数。 
FindFirst 是找出指定目录下第一个文件或目录。 
FindNext 一般和FindFirst配合使用，用来找出下一个文件或目录。 
FindClose 用来关闭查询。 
（以上函数Delphi在线帮助中有详尽解释，在此不赘述）； 
3． 用FileExists函数查找当前目录， 
4． 寻找是否有满足条件的文件存在， 
5． 依次使各个子目录成为当前目录， 
6． 递归调用本函数， 
7． 释放资源， 
8． 返回查询结果。 　 
　 
代码如下： 
1． 从搜索记录中判断是否是子目录。 
　 
function IsValidDir(SearchRec:TSearchRec):Boolean; 
begin 
if (SearchRec.Attr=16) and 
(SearchRec.Name<>'.') and 
(SearchRec.Name<>'..') then 
Result:=True 
else 
Result:=False; 
end; 
2． 这是查询主体函数。 
参数介绍： 

Mainpath： 指定的查询目录。 
Filename： 欲查询的文件。 
Foundresult： 返回的含完整路径的匹配文件（可能有多个）。 

如果有匹配文件，函数返回True，否则，返回False; 　 

function SearchFile(mainpath:string; filename:string; 
var foundresult:TStrings):Boolean; 
var i:integer; 
Found:Boolean; 
subdir1:TStrings; 
searchRec:TsearchRec; 
begin 
found:=false; 
if Trim(filename)<>'' then 
begin 
subdir1:=TStringList.Create;//字符串列表必须动态生成 
//找出所有下级子目录。 
if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then 
begin 
if IsValidDir(SearchRec) then 
subdir1.Add(SearchRec.Name); 
while (FindNext(SearchRec) = 0) do 
begin 
if IsValidDir(SearchRec) then 
subdir1.Add(SearchRec.Name); 
end; 
end; 
FindClose(SearchRec); 
//查找当前目录。 
if FileExists(mainpath+filename) then 
begin 
found:=true; 
foundresult.Add(mainpath+filename); 
end; 
//这是递归部分，查找各子目录。 
for i:=0 to subdir1.Count-1 do 
found:=Searchfile(mainpath+subdir1.Strings[i]+ 
'\',Filename,foundresult)or found; 
//资源释放并返回结果。 
subdir1.Free; 
end; 
result:=found; 
end;