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

[Union]

Also folgender Code läuft bei mir durch bis zum Integer-Überlauf Unterscheid ist dass kein persistentes DB-Objekt verwendet wird. Vielleicht mal mit DBIDataBaseFlush versuchen...

Delphi-Quellcode:

procedure TForm1.btnStartClick(Sender: TObject);
var
   Table : TTable;
   i : integer;
begin
   Stopped := false;
   btnStart.Enabled := false;
   btnStop.Enabled := true;
   i := 0;
   repeat
      inc(i);
      Table := TTable.Create(nil);
      try
         Table.DatabaseName := 'd:\develop\temp\p';
         Table.TableType    := ttFoxPro;
         Table.TableName    := 'zugang';
         Table.Open;
         Table.Close;
      except
      end;
      Table.Free;
      Label1.Caption := IntToStr(i);
      Application.ProcessMessages;
   until Stopped
end;