sql := "CREATE TABLE "employee.db"( Last_Name CHAR(20),
       First_Name CHAR(15), Salary NUMERIC(10,2),
       Dept_No SMALLINT, PRIMARY KEY (Last_Name, First_Name))";
Query1.sql.text:=sql;
Query1.ExecSQL;