delphi创建数据库出错，创建表也是这个错误，请高手解决下

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    with query1 do
      begin
        close;
        sql.Clear;
        sql.Add('creat database'+trim(edit1.Text)+'on(name='+trim(edit2.Text)+',filename='
        +'"'+trim(edit3.text)+'"'+')');
        execSQL;
      end;
    application.MessageBox('成功','提示',64);
  except
    application.MessageBox('失败','提示',64);
  end;
end;
end.错误提示： Project Project.exe raised exception class EDBEngineError with message' Invalid use of keyword.
Token:creat
Line Number:1'Process stopped. Use Step or Run to continue.

Answer 1

sql.Add('create database '+trim(edit1.Text)+'on(name='+trim(edit2.Text)+',filename="'
        +trim(edit3.text)+'")');

Answer 2

最好的办法是用F7单步运行!然后看一下自已的SQL语句是否写对了!楼主的程序是SQL语句出错!