كيف يمكن نقل سجيلات من جدول الى اخر باستعمال الفلترة مع العلم ان DatabaseName مختلفة

[AbdouProg]

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

PHP كود :

begin

DM1.Source.close;
DM1.Source.open;

While Not DM1.Source.eof  do  //  eof = End Of File

Begin

with DM1.destination do

      begin
      Active:=False;
      SQL.Clear;
      SQL.Add('Insert into customer (id, FIRSTNAME,LASTNAME,CITY,COUNTRY)');
      SQL.Add('Values (:b1 , :b2 , :b3 , :b4 , :b5)');
      Params[0].Value := DM1.SourceID.Value;
      Params[1].Value := DM1.SourceFIRSTNAME.Value;
      Params[2].Value := DM1.SourceLASTNAME.Value;
      Params[3].Value := DM1.SourceCITY.Value;
      Params[4].Value := DM1.SourceCOUNTRY.Value;
      ExecSQL;
      end;
DM1.source.next;
End; 


و لكن للاسف الطريقة الثانية والثى هدفها هو ان يكون الكورس مختصر لم تمشي معي الكود و الخطأ فيمايلى

PHP كود :

var
i : integer;
Begin

DM1.Source.close;
DM1.Source.open;

While Not DM1.Source.eof  do  //  eof = End Of File

Begin

for i:= 0 to 4 do

with DM1.destination do

      begin
      Active:=False;
      SQL.Clear;
      SQL.Add('Insert into customer (id, FIRSTNAME,LASTNAME,CITY,COUNTRY)');
      SQL.Add('Values (:b1 , :b2 , :b3 , :b4 , :b5)');
      Params[i].Value := DM1.source.Fields[i].Value;
      ExecSQL;
      end;
DM1.source.next;
End;