Populates a stringlist with the names of persistent MySQL databases.
procedure GetDabases(Pattern: String; List : TStrings);