一个delphi菜鸟的简单问题！！！！分不少哦，帮帮忙(30分)

我想在我的单机数据库里实现对数据表的备份和导入。该如何实现。我想在备份时调用
一个文件路径对话框，选择路径用存文件的命令搞定，导入就在机子上找到相同文件名的文件再进行替换，可以吗？？
如果可以我想知道快速在机子上查找一个文件的命令是什么？进行替换的命令呢？？如果
你熟悉这方面。请帮帮忙，给个例子讲解一下。我是菜鸟！！！！

...
...
uses FileCtrl;
...
...
var
SearchRec: TSearchRec;
aList: TStringList;
BackUpDir: Stirng;
I: Integer;
begin
aList :=TStringList.Create;
BackUpDir :='';
try
aList.Clear;
aList.Sorted :=True;
if SelectDirectory('选择备份路径.','我的电脑',BackUpDir)and(BackUpDir<>'') then
begin
FindFirst(BackUpDir+'/*.*',faAnyFile,SearchRec);
if pos('.',SearchRec.Name)<>1 then // 防止无效文件名.
aList.Add(SearchRec.Name);
while FindNext(SearchRec)=0 do
begin
if pos('.',SearchRec.Name)<>1 then // 防止无效文件名.
aList.Add(SearchRec.Name);

end;
if aList.Items.Count >0 then
begin
for I:=0 to aList.Count -1 do
begin
if Pos('.db',aList)<>0 then
...
...

end;
end;
end;
finally
FindClose(SearchRec);// 如果这个地方错了那就是 CloseFind(SearchRec);
aList.Free;
end;
end;

//以上是查询文件;

//下面是备份文件
...
...
const
aFiles: array[0..2]of String =('File1','File2','File3');
var
I: Integer;
begin
...
...
if SelectDirectory('选择备份路径.','我的电脑',BackUpDir)and(BackUpDir<>'') then
begin
if not DirectoryExists(BackUpDir) then
ForceDirectories(BackUpDir); 建立一个不存在的文件夹;
for I :=0 to 2 do

CopyFile(pChar('C:/DatabaseName/'+aFiles),pchar(BackUpDir)+'/'+aFiles)
end;
end;

哇!太全了，又来晚了

good way

没机会了

接受答案了.