[Ruschel]

У меня в таблице хранятся фотографии в blob-поле, при добавлении фотографии в таблицу создается в той же папке файл <table name>.mb где хранятся эти фото. При удалении записей из таблицы размер этого файла не уменьшается....в чем проблема?
Удаляю так(там три сендера - предпросмотр 3-х фото из базы):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure TNewEdit.DelFoto(Sender: TObject); var i,ButtonSelect:integer; begin  ButtonSelect:=Application.MessageBox('Óäàëèòü ôîòîãðàôèþ?','Ôîòîãðàôèè',mb_IconQuestion+mb_YesNo+mb_TaskModal);  if (ButtonSelect=idYes) then   begin    DMUnit.Foto.First;    if Sender=DelFoto1 then     begin      Foto1.Picture.Bitmap.FreeImage;      Foto1.Picture:=nil;      i:=DMUnit.Foto.MoveBy(FotoScroll.Position-1);      DMUnit.Foto.Delete;      DMUnit.Foto.Refresh;      FotoScrollClick(self,btNext);     end;    if Sender=DelFoto2 then     begin      Foto2.Picture.Bitmap.FreeImage;      Foto2.Picture:=nil;      i:=DMUnit.Foto.MoveBy(FotoScroll.Position);      DMUnit.Foto.Delete;      DMUnit.Foto.Refresh;      FotoScrollClick(self,btNext);     end;    if Sender=DelFoto3 then     begin      Foto3.Picture.Bitmap.FreeImage;      Foto3.Picture:=nil;      i:=DMUnit.Foto.MoveBy(FotoScroll.Position+1);      DMUnit.Foto.Delete;      DMUnit.Foto.Refresh;      FotoScrollClick(self,btNext);     end;   end; end;