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

[medreg]

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

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

PHP كود :

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; 


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

PHP كود :

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; 


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