[jachguate]

Aunque creo que ese es tu trabajo, te daré un buen empujón...

seria algo como:

Código Delphi [-]
  s := 'create table ' + TablaTablasNombreTabla.Value + '(';
  while not TablaCampos.eof do
  Begin
    s := s + TablaCamposNombreCampo.Value ' ' + 
             TablaCamposTipoDato.Value + ' ';
    TablaCampos.Next;
    if not TablaCampos.eof Then
      s := s + ', ';
  end;
  s := s + ')';
  
  Query1.sql.Clear;
  Query1.sql.Add(s);
  try
    Query1.ExecSQL;
  except
    LoQueQuerrasHacerSiNoFunciona;
  end;

Hasta luego.