Gerhard,

> what is the best way do copy programmable a table-schema?

procedure CopyTable;
begin
IB_Query.GetCreateTableSql(IB_Dsql.Sql,false,false);
IB_Dsql.Sql[0] := 'Create Table ' + MyNewTableName + ' (';
try
IB_Dsql.Execute;
My_IB_Dsql_Transaction.Commit;
except
Application.HandleException(IB_Dsql);
end;
end;


... there´s allways a better way :-)

Cheers,
Harald