[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;