转存ACCESS数据库和读入ACCESS数据库问题，在线等，我会马上回复(100分)

我做了一个监控软件，现在要实现两个功能：
1。让用户选择存储路径转存本次记录的数据。我是这样写的：
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var s:string;
begin

if (MessageDlg('您要保存这次记录的数据吗',mtConfirmation,[mbYes, mbNo],0)=mryes) then
begin
if savedialog1.execute then
copyfile(pchar('I:/1114新办法/WSHA_Temp_Date.mdb'),pchar(savedialog1.FileName),false);
s:=savedialog1.FileName;
showmessage('本次数据按照您指定位置保存成功');
end else
showmessage('您没有保存温控仪运行的数据');
end;
'I:/1114新办法/WSHA_Temp_Date.mdb'这个路径是我ACCESS数据库的路径，用这段程序用户保存以后数据库没有后缀.mdb，应该怎么改才能保存为*.mdb文件
2。我在程序里想实现查询历史数据的功能，历史数据也就是问题1中保存的*.mdb(存储的路径和名称都是用户自己定义的)，我要实现弹出对话框让用户选择他要查询的历史数据库，记录下这个路径，以这个路径完成查询的功能。
还有个问题是大家在做安装文件时都是怎么做的啊？？我的ACCESS数据库是自己建好的了，安装时当然要仪器加载，但是程序里连接数据库的路径是死的啊，用户选择安装路径后，数据库就不知道装到哪里去了，应该怎么处理啊
各位Delphi高手，帮忙了