delphi程序内的路劲冲突问题

procedure CreateImageList(const Path:String);用这个来创建我需要展示的图片表单，但是Path是自动获取路径的，我的图片存放于..\项目文件\img文件夹内。
然后我的程序又要自动创建数据库到项目文件夹的data文件夹内，程序如下：
ADOTable1.Close;
      s1 := 'data\D' + FormatDateTime('yyyy-mm-dd',Now) + '.mdb';
      CopyFile('MiniGrid.mdb', Pchar(s1), True);
      s := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + s1 + ';Persist Security Info=False';
      ADOTable1.Close;
      ADOTable1.ConnectionString := s;
      ADOTable1.TableName := 'MiniGridData';
      ADOTable1.Open;
问题出现了，运行之后Path路径获取混乱了，程序报错：..\项目文件\img\data\Dxxxx-xx-xx.mdb文件路径出错（大意就是这意思），求助，怎么能让两个路径不发生冲突？

追问：求详解，CreateImageList(const Path:String)中Path是不可以赋值的，s1 := 'data\D' + FormatDateTime('yyyy-mm-dd',Now) + '.mdb';这一句中我也试过把data\D改为绝对路径，但结果一样if ParamCount > 0 then
    CreateImageList(ParamStr(1))
  else
    CreateImageList(ExtractFilePath(Application.ExeName) + 'img');
我这段应该就是你说的吧，之前就有了，还是不行

答案：使用绝对路径

其他：可以使用  ExtractFilePath(ParamStr(0))  来获取当前主程序运行的路径，
如：  FilePath =  ExtractFilePath(ParamStr(0))  + 'img\'

上一个：delphi和vb哪个用的和手点？
下一个：请教高手，如何用DELPHI实现下列操作：