فتح ثم استيراد عدة ملفات دو الامتداد (.csv) باستعمال OpenDialog

[AbdouProg]

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

استعمل الكود الثالي في فتح ملف واحد دو الامتداد (.csv) و استعمل TFDBacheMove في استيراد الملف مع العلم ان الكود يعمل مع ملف واحد
 كل ما أريده و اثمناه من الزملاء هو مساعدتي في كيفية تغير الكود من اجل فتح العديد من الملفات بإستعمال OpenDialog1 واحد و من ثما استيراد الملفات
هل نقوم باستبدال edit1 ب mémo  او هل هناك طريقة اخرى  

جزاكم الله ألف خير 

الكود المستعمل في فتح الملف

كود :

var   F: TextFile;   Nom: string;   begin   Edit1.Clear;   OpenDialog1.FileName := '';   OpenDialog1.Title := 'Ouvrir le Fichier adresse.csv';   OpenDialog1.InitialDir := 'D:\';   OpenDialog1.Filter := 'Fichier CSV (*.csv)|*.csv|Tous les fichiers (*.*)|*.*';   if OpenDialog1.Execute() then     if OpenDialog1.FileName <> Null then     begin       if OpenDialog1.FileName <> 'D:\adresse.csv' then         ShowMessage('nom du fichier erroné')       else       Nom := OpenDialog1.FileName;       AssignFile(F, Nom);       Edit1.Text := Nom;     end;

الكود المستعمل في إستيراد الملف

كود :

  Edit1.Clear;     DM.TextReader1.FileName := Nom;     DM.TextReader1.DataDef.WithFieldNames := True;     DM.ImportCSV.Execute;