فيما يخص حفظ قادة البيانات في مجلد داخل البرنامج

السلام عليكم ورحمة الله تعالى وبركاته

لقد وضعت هذه المحاولة لكن لم تنجح معي
وكل ما احتاجه هو كيف اضع قاعدة البيانات في مجلد معين موجود داخل مجلد البرنامج وكيف استدعيها منه

قاعدة البيانات المستعملة ABSOLUTE DATABASE DELPHI7

هذا الكود للحفظ

procedure TFormArch.BitBtn2Click(Sender: TObject);
var 
Pdir:string;
begin
Pdir:='MdgArch';// هذا إسم مجلد الأرشيف الموجود داخل 
مجلد البرنامجSleep(200);
DModule.OnDestroy(sender);
if DirectoryExists('MdgArch') then
begin
في هذا الكود أردت أن أقول إذا كان 
هذا المجلد موجود انسخ هذه القاعدة 
بداخلهcopyfile(pchar('BaseTest.ABS'),pchar(ComboBox1.Text+SpinEdit1.text),false);
end 
else begin
CreateDir(Pdir);// لإنشاء مجلد 
الأرشيف///////////////////////////////////////////////////////
end;
DModule.OnCreate(sender);Sleep(500);
Close;
end;

وهذا الكود للإسترجاع

procedure TRestoreBase.BitBtn1Click(Sender: 
TObject);
begin
Sleep(200);
DModule.OnDestroy(sender);
copyfile(pchar(ComboBox1.Text+SpinEdit1.text),pchar('BaseTest.ABS'),false);
DModule.OnCreate(sender);
Sleep(500);
Close;
end;

علما بأن هذه الأكواد تعمل داخل مجلد البرنامج فقط
وليس داخل مجلد فرعي بمجلد البرنامج