TWideStriblist kann nicht zu TStringlist zugewiesen werden

[Smiley]

Also diese Lösung bekomme ich auch nicht hin, habe es gerade versucht.
Wie muss ich die Variable denn im Aufrufprogramm dann definieren, als TObject geht nicht und als TStringlist kommt der alte Fehler.

Delphi-Quellcode:

Procedure ListTables(Var StrangeList: TObject);
Var
  i                           : Integer;
  Liste: TStringList;
Begin
  Liste := TStringList(StrangeList);

  Liste.Clear;
  Con1.GetTableNames(Liste, False);

  i := 0;
  //...
End;

Funktioniert garantiert solange, wie alle Module gegen die selbe VCL kompiliert werden (glaube ich).