Перенос данных из таблицы типа Paradox в таблицу типа Firebird

procedure TForm1.BitBtn2Click(Sender: TObject);
var st,fName:string;
rw:integer;
begin
 
         DataModule1.Table1.First; // Firm (Paradox)
with DataModule1.Table1 do
  begin          
 rw:=0;
   while not EOF do  
    begin
     rw:=rw+1;  
     fName:=FieldByName('Firm').AsString;  // с таблици Firm (Paradox)
       Next;
      DataModule1.IBQuery1.Close;
      DataModule1.IBQuery1.SQL.Clear;
  st:='INSERT INTO TB_FIRM(TB_FIRMNAME)';
  st:=st+' VALUES(:TB_FIRMNAME)';
      DataModule1.IBQuery1.SQL.Add(st); // в таблицу  tb_Firm (Firebird)
  DataModule1.IBQuery1.ParamByName('TB_FIRMNAME').AsString:=fName;
    DataModule1.IBQuery1.ExecSQL;
    DataModule1.IBQuery1.Close;
      DataModule1.IBQuery1.SQL.Clear;
       DataModule1.IBQuery1.SQL.Add('SELECT * FROM TB_FIRM ORDER By TB_FIRM_ID');
     DataModule1.IBQuery1.Open;
   end;
  end;  // with
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var st,fSName,fName,fMName,ffirm,fprice,ftown,ftax,fdis,fprodt,fprodn:string;
rw:integer;
begin
rw:=0;
 
DataModule1.Table1.First;
with DataModule1.Table1 do
  begin
 
   while not EOF do
    begin
     rw:=rw+1;
      fSName:=FieldByName('Surname').Text;
      fMName:=FieldByName('Middle_name').Text;
      fName :=FieldByName('Name').Text;
      ffirm :=FieldByName('Firm').Text;
      fprice:=FieldByName('Price').Text;
      ftown :=FieldByName('Town').Text;
      fprodt:=FieldByName('Product_Type').Text;
      fprodn:=FieldByName('Product_Name').Text;
       Next;
      DataModule1.IBQuery1.Close;
      DataModule1.IBQuery1.SQL.Clear;
      DataModule1.IBQuery1.SQL.Add('INSERT INTO TB_CLIENTS (C_SURNAME,C_NAME,C_MIDDLENAME,C_FIRM,C_PRICE,C_TOWN,C_PRODUCTTYPE,C_PRODNAME)  VALUES'); // додавання запису в таблицю  tb_Firm (Firebird)
      DataModule1.IBQuery1.SQL.Add('(:C_SURNAME, :C_NAME, :C_MIDDLENAME, :C_FIRM, :C_PRICE, :C_TOWN, :C_PRODUCTTYPE, :C_PRODNAME);');
 
      DataModule1.IBQuery1.Params.ParseSQL(DataModule1.IBQuery1.SQL.Text, True);
  DataModule1.IBQuery1.ParamByName('C_SURNAME').Value:=fSName;
  DataModule1.IBQuery1.ParamByName('C_NAME').Value:=fName;
  DataModule1.IBQuery1.ParamByName('C_MIDDLENAME').Value:=fMName;
  DataModule1.IBQuery1.ParamByName('C_FIRM').Value:=ffirm;
  DataModule1.IBQuery1.ParamByName('C_PRICE').Value:=StrToFloat(fprice);
  DataModule1.IBQuery1.ParamByName('C_TOWN').Value:=ftown;
  DataModule1.IBQuery1.ParamByName('C_PRODUCTTYPE').Value:=fprodt;
  DataModule1.IBQuery1.ParamByName('C_PRODNAME').Value:=fprodn;
   try
    DataModule1.IBQuery1.ExecSQL;
   except
    ShowMessage('Добавление данных не удалось');
    DataModule1.IBTransaction1.RollbackRetaining;
    exit;
  end;
  DataModule1.IBTransaction1.CommitRetaining;
    DataModule1.IBQuery1.Close;
      DataModule1.IBQuery1.SQL.Clear;
       DataModule1.IBQuery1.SQL.Add('SELECT * FROM TB_CLIENTS ORDER By TB_ID');
     DataModule1.IBQuery1.Open;
   end;
  end;
end;

DataModule1.IBQuery1.ExecSQL;