Table em Tempo de Execução

var Tabela: TTable;
begin
  Tabela := TTable.Create(Self);
  Tabela.DatabaseName := ´ALIAS´;
  Tabela.TableName:= ´NOME_DA_TABELA´;
end;

var TempTable: TTable;
begin
  TempTable:= TTable.Create(Self);
  With TempTable do
  begin
    DatabaseName := ´C:\WINDOWS\TEMP´;
    TableName := ´TESTE.DB´;
    TableType := ttDefault;
    FieldDefs.Add(´CLI_CODIGO´, ftString, 5, False);
    FieldDefs.Add(´CLI_NOME´, ftString,  40, False);
    FieldDefs.Add(´CLI_CADASTRO´, ftDate, 0, False);
    CreateTable;
  end;
  TempTable.Open;
  DataSource1.DataSet := TempTable;
end;