[Viet]

Si no puedes usar el BDE podrias hacer:

 Query1.Sql.Text := 'select * from tablax';
 Query1.Open;
 
 While  not Query1.eof do
    begin
        Query2.sql.text := 'insert tablaZ(campo, ....) values('+Query1.fields[1].asstring+','+.....);
        Query2.ExecuteSQL;
        Query1.Next;
    end;

Obviamente Query1 apunta a una DB y Query2 a la otra.

Saludos