Query1.DatabaseName:='DBDEMOS';
Query1.SQL.Text:='create table "test.dbf" (name char(20), capital char (20), continent char(20), area char(20), population char(20))';
Query1.ExecSQL;
Query1.SQL.Text:='insert into "test.dbf" select cast(name as char(20)), cast(capital as char(20)), cast(continent as char(20)), cast(area as char(20)), cast(population as char(20)) from country';
Query1.ExecSQL;
используй cast для преобразования типов.
__________________
Пишу программы за еду.
__________________