Delphi通过ADO连接MYSQL

procedure TForm1.Button1Click(Sender: TObject);
begin
try
   ADOCon1.ConnectionString:=('DRIVER={MySQL ODBC 3.51 Driver};'+
                  'SERVER=localhost;'+
                  'DATABASE=lionx;'+
                  'USER=root;'+
                  'PASSWORD=109;'+
                  'OPTION=3;');
   ADOCon1.Close;
   ADOCon1.Open;
   except
   application.MessageBox('无法连接数据库服务器.请与管理员联系','提示',MB_ICONINFORMATION);
   end ;
    ADOQ1.Active:=true;
end;