كيف أخرج SaveDialog مرة واحدة في تشغيل البرنامج لأول مرة

[أمير الدلفي]

شكرا جزيلا أخي المشرف العام
و ياليت تتابع معي المناقشة الى آخرها
بعدما استدعيت المكون واستخدمت اسم الملف ومساره المختار ونجح كل شيئ الى الأن واستعملت طريقة النسخ لكي تبقى لنا نسخة محفوظة عل كل
واستعملت الكود التالي

procedure TForm2.FormCreate(Sender: TObject);
Var
a:Boolean;
begin
if SaveDialog1.Execute then
begin
CopyFile('D:\program\data\bd\infoetud.DB',Pchar(SaveDialog1.filename),true);
end;
end;

لكن تبين لي مشكل رهيب جدا أن الملف المنسوخ هو قاعدة البيانات فلا تتصور الخطأ الذي خرج لي
أن alise موجه الى السار الأول لأني استعملت طريقة ملفات ini مما يستوجب الآن توجيه قبلة الجداول الى المسار الجديد وفكرت في نسخ المجلد بالكامل أي حتى ملفات ini ولكن عثرت هنا
كيف يمكن تحويل المجلدبالكامل وماهو امتداده وهل تنجح الفكرة
أما الباقي أظن أني بالامكان القيام به
شكرا لتفاعلك أخي