Arbeitsspeicherproblem beim speichern in TurboDB-Datenbank

[Tempdir]

Hallo,

ich habe mir ein kleines Testprogramm geschrieben, das über eine TDBTable-Komponente permanent Daten in eine TurboDB-Datenbank schreibt. Jetzt beobachte ich beim starten der Applikation dass sie immer mehr und mehr an Arbeitsspeicher benötigt, bis Windows sogar anfängt den Arbeitsspeicher auf der Festplatte auszulagern (das passiert aber erst nach ein paar Tagen Dauerbetrieb)

Mein Code sieht grob gesagt so aus:

Delphi-Quellcode:

for i:=0 to 9999999 do
begin

TdbTable1.Append;

//Fill dataset with data
for a := 2 to (151) do
begin
  //Insert dword data into table field
  TdbTable1.Fields[a-1].AsInteger := i;
end;

//Save dataset to archive-database
TdbTable1.Post;

end;

Was genau ist dafür die Ursache und wie kann ich Abhilfe schaffen? Habe es mal mit TDBTable.Refresh; nach dem .Post probiert, aber hat nichts geholfen.

Besten Dank schonmal!