проблема с подключением к БД MySQL

procedure Start_OnShow (Sender: string; Action: string);
begin
     Wait.Show;
     Application.ProcessMessages;

     {$MySQL disable_connectdialog}
     Start.MySQLConnection.Server := '192.168.100.6';
     Start.MySQLConnection.Port := 3306;
     Start.MySQLConnection.Username := 'root';
     Start.MySQLConnection.Password := 'pa22w0rd';
     Start.MySQLConnection.Database := 'uchet';

     try
         Start.MySQLConnection.Connect;
     except
         Wait.Close;
         ShowMessage('Can''t connect to database.');
         Start.Close;
     end;

     if Start.MySQLConnection.Connected then
     begin
         Start.Pas.PasswordChar := '*';
     end;
     Wait.Close;
end;