var
newtable:ttable;
begin
newtable:=ttable.create;
with newtable do
begin
active:=false;
databasename:='pubs';
tabletype:=ttdefault;
tablename:=edit1.text;
tabletype:=ttdefault;
fielddefs.clear;
fielddefs.add(edit2.text,ftinteger,0,false);
fielddefs.add(edit3.text,ftinteger,0,false);
indexdefs.clear;
end;
createtable;
end;