[Ruschel]

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

Код:

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;