Versuch mal:
Delphi-Quellcode:
for i := 0 to QRDatenModul.ComponentCount do
begin
if QRDatenModul.Components[I] is TADOTable then
ShowMessage(QRDatenModul.Components[I].Name);
end;
...
...
P.S. Anstatt der CODE-Tags kannst Du auch die DELPHI-Tags nutzen, sieht besser aus
