table.delete, pero no reduce tamaños tablas

[jonmendi]

Buenas tardes, tardes!
me pasa algo curioso. Tengo un par de tablas relacionadas, de las que quito unos cuantos registros, dependiendo de la variable indice pasada como parametro.
El borrado lo hace bien en ambas tablas (tengo menos registros en ambas), pero el tamaño de los ficheros no decrece, que es preecisamente lo que buscaba al borrar registros.
¿Me puede alguien explicar el porque?
¡¡Gracias!!

procedure TForm1.clarear(indice:integer);
begin
  table2.Open;table2.First;
  table3.open;table3.First;
  table2.edit;table3.edit;
  while table2.Fieldbyname('Id').asinteger < indice do
	begin
	   while table3.FieldByName('Id').asinteger =
			table2.FieldByName('Id').asinteger do
			  begin
				table3.Delete;
			  end;
	  table2.Delete;
	end;
  table2.close; table3.close;
end;

[JOSEPE]

Aunque no especificas que gestor de base de datos usas, te puedo decir que el decremento del tamaño del archivo de la base de datos se ve cuando se produce el compactado de la base de datos (que es realmente cuando se elimina toda la informacion inservible de la base de datos), este proceso se denomina garbagge collection.

JOSEPE
Lima-Peru

[jonmendi]

Gracias Josepe, y perdón a todos: Uso Delphi 7 y BDE - Paradox.

No he comprendido muy bien tu respuesta, Josepe. Miro en la ayuda y solo me sale Garbage para una serie de opciones para TBackupOption.
No sé si tiene algo que ver, pero no lo veo muy claro.
¿Podrías ampliar algo la repuesta por favor?.
Gracias
Jon

[jonmendi]

Perdón de nuevo a todos (tanto pedir perdón me llevará al cielo).

Buscando, buscando, me he encontrado con esta página:
http://www.delphicorner.f9.co.uk/articles/db15.htm
en la que me resuelve el problema. Incluyendo en uses BDE funciona de maravilla.

Un saludo a todos.