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

[Wo_to]

Hallo zusammen,
ich habe folgendes Problem:

In einer Schleife werden mehrere Foxpro-Tabellen (ca. 500) geöffnet und Werte ausgelesen.
Nach etwa 200 bearbeiteten Tabellen, kommt immer die Meldung:

"Zu viele offene Tabellen geöffnet"

Ich bearbeite die Tabellen wie folgt:

Delphi-Quellcode:

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

... Werte auslesen

ATable.Close
ATable.Active := false;
FreeAndNil(ATable);
end;

Wobei ATableName für jeden Durchlauf immer eine andere Tabelle ist.
In der BDE habe ich den Wert MAXFILEHANDLE schon auf 2000 gesetzt.

Was mache ich falsch ?

MfG
Wo_to