Du instanzierst aber nicht zufällig ein TStrings-Objekt, oder?
Nö, das deklariere und übergebe ich.
Zitat:
procedure GetTableNames(List: _TStrings; AllTables : boolean = false); virtual;
List: A TStrings descendant that will be filled with table names