Example - Server Create

...
   with TMySQLServer.Create(nildo 
   try
      Host := 'localhost'

      Username := 'root'
;
      Password := ''
;
      DatabaseName := 'mysql'
;
      LoginPrompt := False;
      Connected := True;
      ...
      ExecSQL('GRANT SELECT, INSERT, UPDATE, DELETE, RELOAD ON *.* TO '
Admin'@'%'');
      ...
      CreateDatabase('Test'
);
      DropDatabase('Test'
);
      ...
      GetDatabaseNames(List);
      GetTableNames('mysql'
,List);
      GetFieldNames('mysql'
,'user',List);
      ...
   ...
   finally
      Free;
   end;
...