fix: prefer SHOW KEYS over SHOW INDEXES, which are synonyms, while very old servers only accept the one with KEYS

https://www.heidisql.com/forum.php?t=45113

Author: ansgarbecker

source/dbconnection.pas

@@ -6050,7 +6050,7 @@ function TMySQLConnection.GetTableKeys(Table: TDBObject): TTableKeyList;
 
   end else begin
 
-    KeyQuery := GetResults('SHOW INDEXES FROM '+QuoteIdent(Table.Name)+' FROM '+QuoteIdent(Table.Database));
+    KeyQuery := GetResults('SHOW KEYS FROM '+QuoteIdent(Table.Name)+' FROM '+QuoteIdent(Table.Database));
     NewKey := nil;
     while not KeyQuery.Eof do begin
       if (not Assigned(NewKey)) or (NewKey.Name <> KeyQuery.Col('Key_name')) then begin