Frigivelse af hukommelse efter brug af AdoTable

Hej

Jeg har skrevet en stor applikation som gør brug af adotabels - hvis jeg havde tiden ville jeg gerne bruge query istedet, men der er tale om en kæmpe application aom det har taget 3 - 4 år at lave. Der er cirka 170 skærmbilleder og små 100 dataklasser.

Problemet er at når en table bruges bruger systemet rigtigt meget hukommelse og den hukommelse frigives ikke igen. Eksempelvis er det ikke usædvanligt at en pc'er efterhånden som dagen går bruger 500 mb. hukommelse selv om appliacationen ikke bruger den til noget. Kører man så et program som Ram Booster export så bruger programmet 20 - 30 mb. hukommelse.

Alle dataklasser er indkables og nedarver fra en Provider kaldet TAspProvider(indeholder tabel og query component).
Eksempel på nedarvning er

TASPProvider  (alt den tekniske implementering)
    |
TPatientData (alt info vedrørende patienten)

Eksempel på en hvor dan en AdoTable bruges er
Koden er simplificeret

PatientData := TAdoTable.Create(self);
try
  PatientData.Open
  With PatientData do
    begin
      Insert;
      FieldByName('FIRSTNAME').AsString = 'TEST';
      Post;
    end;
Finally
  FreeAndNil(PatientData);
end;

Findes der nogen garbage collection i form af units eller componenter som man kan kompilere ind i programmet - her tænker jeg på 3 rd. parts