Как освободить память после использования SQLite?

    
  SQLiteDatabase := TSQLiteDatabase.Create(datadir);
  SQLiteTable := SQLiteDatabase.GetTable('SELECT * FROM home');
  SQLiteDatabase.Free;

  SQLiteDatabase:=TSQLiteDatabase.Create(datadir);
  SQLiteTable:=SQLiteDatabase.GetTable('SELECT * FROM home');
  FreeAndNil(SQLiteDatabase);
  ...
  FreeAndNil(SQLiteTable);

function TSQLiteDatabase.GetTable(const SQL: String): TSQLiteTable;
begin
  Result := TSQLiteTable.Create(Self, SQL);
end;

While not SQLiteTable.EOF do

SQLiteDatabase:=TSQLiteDatabase.Create(datadir);
  SQLiteTable:=SQLiteDatabase.GetTable('SELECT * FROM home');

query.sql.text:='select * from T';
while not query.EOF do begin
  ..
  query.next;
end;

SQLiteDatabase:=TSQLiteDatabase.Create(datadir);
SQLiteTable:=SQLiteDatabase.GetTable('SELECT * FROM home');
...
SQLiteTable.Free;
SQLiteDatabase.Free;

function getdata(s:string):string;
var
  SQLiteDatabase : TSQLiteDatabase;
  SQLiteTable    : TSQLiteTable;
begin
    SQLiteDatabase := TSQLiteDatabase.Create(datadir);
    SQLiteTable := TSQLiteTable.Create(SQLiteDatabase,'SELECT * FROM home');
    While not SQLiteTable.EOF do
    begin
      try
        Result := Result + SQLiteTable.FieldAsString(SQLiteTable.FieldIndex['act'])+'^';
      finally
        SQLiteTable.Next;
      end;
    end;
    SQLiteDatabase.Destroy;
    SQLiteTable.Destroy;//тут AV
end;

procedure TMainForm.Button2Click(Sender: TObject);
var
  SQLiteDatabase : TSQLiteDatabase;
  SQLiteTable    : TSQLiteTable;
  s:string;
begin
    s:='';
    SQLiteDatabase := TSQLiteDatabase.Create('e:\g\d\appl2002\delphi2010\sqlite\geomarks\data\hoyat.db');
    SQLiteTable := TSQLiteTable.Create(SQLiteDatabase,'SELECT * FROM r_objects');
    While not SQLiteTable.EOF do
    begin
      try
        s:=s+SQLiteTable.FieldAsString(SQLiteTable.FieldIndex['MM4'])+'^';
      finally
        SQLiteTable.Next;
      end;
    end;
    SQLiteDatabase.Destroy;
    SQLiteTable.Destroy;
end;