Criando tabelas em tempo de execução

{Use os metodos FieldDefs e CreateTable para isso. Veja como criar uma estrutura temporaria: }

with TTable.Create(Application) do
begin
Active := False;
DatabaseName := 'C:TEMP';
TableName := 'TESTE.TMP';
TableType := ttDefault;
FieldDefs.Add('CODCLI', ftString, 5, False);
FieldDefs.Add('NOMCLI', ftString, 40, False);
FieldDefs.Add('DATCAD', ftDate, 0, False);
CreateTable;
Free;
end;