在Delphi中如何创建数据库！

Question

我想在Delphi中实现如何创建MYSQL数据库，我要一段代码例子！不要给
create database 数据库名 这么简单的！我想要的是一个例子，用什么控件实现的的最好是Delphi中自带的控件，最好具体点，那些什么库名、库文件的大小、路径什么、用户名、等等的！这个题三百分！帮帮忙吧！

Answer 1

with table1 do  //table1控件
begin
 Active:=false;
 DatabaseName:='mydbn'; //设置别名
 TableName:='mytable';  //文件名
 TableType:=ttparadox;  //文件类型
 
 with fieldDefs do      //定义字段
 begin
  clear;
  add('field1',ftinteger,0,false);//字段1
  add('field2',ftinteger,0,false);//字段2
 end; with indexDefs do  //定义索引
 begin
  clear;
  add('field1Index','field1',[ixprimary,ixunique]);//字段1为索引字段
 end; createtable;//建立
end;

Answer 2

用tquery
query.sql.add('create database ...........');