[friz]

может так?

Код:

procedure TForm1.Button2Click(Sender: TObject);
var tablelist:TStringList;
    i:integer;
    table_priemnik:string;
begin
table_priemnik:='TABLE_A.DBF'; //таблица в которую пишем
tablelist:=TStringList.Create;
tablelist.Add('TABLE1.DBF');  //список таблиц которые надо прочитать
tablelist.Add('TABLE2.DBF');
FOR I:=0 TO tablelist.Count-1 do  //запускаем цикл по таблицам
begin
Query1.SQL.Text:='SELECT field1,field2 from '+tablelist[i]; //формируем запрос на получение данных из таблицы
Query1.Open;

Query2.sql.Text:='INSERT INTO '+table_priemnik+' (field1,field2) VALUES (:field1,:field2)'; //формируем запрос на вставку данных в таблицу приемника

while not(Query1.Eof) do
begin
Query2.ParamByName('field1').Value:=Query1.FieldByName('field1').AsString;  //устанавливаем значение параметрам
Query2.ParamByName('field2').Value:=Query1.FieldByName('field2').AsString;
Query2.ExecSQL; //выполняем запрос на вставку
Query1.Next;
end;
Query1.Close;
Query2.Close;
end;

end;