[ViNT]

Данная библиотека позволяет выгружать из памяти неиспользуемые данные.
Например:

program imFreeTest;
uses memory,memclean;
var
 Im1,im2,im3,nil:image;
begin
  drawText('BL:'+integertostring(memory.free), 0, 0);
  repaint;
  im1:=LoadImage('/image.png');//заполняем память
  im2:=LoadImage('/image.png');
  im3:=LoadImage('/image.png');
  drawText('AL:'+integertostring(memory.free), 0, 10);
  repaint;
  Im1:=nil;//"уничтожение" объектов, обратите внимание,
  //изображение nil не загружено
  Im2:=nil;
  Im3:=nil;
  drawText('AD:'+integertostring(memory.free), 0, 20);
  repaint;
  memclean.clean;//чистка памяти
  drawText('AC:'+integertostring(memory.free), 0, 30);
  repaint;	
 delay(20000);
end.