"Meldung: Zu viele offene Tabellen" Wie kann man das umgehen

[RavenIV]

also ich würde das erst mal umstellen:

Delphi-Quellcode:

ATable := TTable.Create(nil);
ATable.DatabaseName := ADataBase;
for i := 0 to Pred(500) do
begin
ATable.TableName := ATableName;
ATable.Open;

... Werte auslesen

ATable.Close
end;
ATable.Free;

Ob damit Dein Fehler schon beseitigt ist, kann ich nicht versprechen.
Aber die Sache wird sicher einiges schneller...