Aus Datenmodul mit findcomponente alle ADO-Tables finden

[Nalincah]

Ich will aus einem Datenmodul alle Komponenten des Typs "TADOTable" finden. Die Namen sind total verschieden. Also nicht ADOTable1, ADOTable2,.... Wie krieg ich das hin? Soweit bin ich schon:

Code:

 
for i := 0 to QRDatenModul.ComponentCount do
begin
  if QRDatenModul.FindComponent(
end;

Weiter weiß ich nicht