En el Database Desktop , cuando creas una nueva tabla, en el editor de campos aparece un botón "Borrow" que te permite tomar la estructura para la nueva tabla de otra ya existente.
Si lo quieres hacer por código, quizá puedas (no lo he probado) hacer algo como:
Código Delphi
[-]
Table2.FieldDefs.Assign(Table1.FieldDefs);
Table2.DatabaseName = 'alias de la base';
Table2.TableName = 'nombre de la tabla';
Table2.CreateTable;
// Saludos