[delphi.com.ar]

Podrías hacer un select...recorrer todos los registros hasta el fin de archivo, y para cada registro insertar uno en la DBF.

Código Delphi [-]
  if not ADataSet.IsEmpty then
  begin
    ADataSet.EnableControls;
    try
      ADataSet.First;
      repeat
        { Hacer el insert en el DatSet de la DBF}
        ADataSet.Next;
      until ADataSet.Eof;
    finally
      ADataSet.DisableControls;
    end;
  end;

Otra opción, es usar uno de mis componentes DataToDBF que te crea una DBF en forma nativa.