В таблицы какой СУБД ты желаешь сохранить данные? Используешь ли ты
компоненты BDE.

Вариант BDE/Paradox:

//########## создание таблицы #########################
procedure ToTable;
var
i, RecCount, CurCount : integer;
begin
try
With Datamodule.Table... do
begin
Close;
if FileExists(SaveDialog1.FileName)
then DeleteFile(SaveDialog1.FileName);
DatabaseName := ExtractFilePath(SaveDialog1.FileName);
TableType := ttParadox;
TableName := SaveDialog1.FileName;
//############ поля ##########################
if not Exists then
begin
With FieldDefs do
begin
Clear;
//######## вставляешь поля в цикле из TQuery ########
For i := 0 to Query.FieldDefs.Count -1 do begin
With AddFieldDef do begin
Name := Query.Fields .Name;
DataType := Query.Fields.DataType;
Required := Query.Fields.Required;

Case Query.FieldDefs.DataType of
ftString : Size := Query.Fields.Size;
end;
end;
//################ индексы ##################
With IndexDefs do begin
Clear;
По аналогии с полями
end;

CreateTable;
Close;
end;
end;
except
MessageBox(Handle,'Не могу перезаписать файл! Создайте новый файл.', PChar(Application.Title), 16);
Abort;
end;

//############### заполнение ####################
try
With Datamodule do begin
i := 1;
Table.Close;
Table.TableName := SaveDialog1.FileName;
Table.Open;
Table.EmptyTable;
Table.First;
Query.First;
Application.ProcessMessages;
RecCount := Query.RecordCount;
CurCount := 0;
Form1.Gauge1.Visible := True;
Query.DisableControls;
While not Query.Eof do begin
Table.Insert;
for i := 0 to Query.FieldDefs.Count - 1 do
Table.Fields.Value := Query.Fields.Value
Table.Post
Inc(i);
Inc(CurCount);
Form.Gauge1.Progress := 100*CurCount div RecCount;
Query.Next;
end;
Table.FlushBuffers;
MessageBox(Handle,PChar('Экспорт данных завершен! Итого - '+
IntToStr(Table.RecordCount)+' записей выгружено!"'), PChar (Application.Title),64);
Table.Close;
Query.EnableControls;
Form.Gauge1.Visible := False;
end;
except
end;

ВНИМАНИЕ!!! Могут быть ошибки, но главное направление мысли!