Такая функция есть в библиотеке Lib_ui.
Кстати, пробовал очистку ресурсов, результаты не очень обнадеживающие.
Такой код
program imFreeTest;
uses memory;
var
Im,nil:image;
begin
drawText(integertostring(memory.free), 0, 0);
repaint;
im:=LoadImage('/image.png');
drawText(integertostring(memory.free), 0, 10);
repaint;
Im:=nil;
drawText(integertostring(memory.free), 0, 20);
repaint;
delay(20000);
end.
дает на SE не очень хорошие результаты:
980096//до заргузки
980032//после загрузки
979744//после "очистки"
Вопрос в том, через какое время сработает "сборщик мусора".
Попробую сделать библиотеку.
К тому же, как я понимаю, при использовании DrawImage(LoadImage('/logo.png'), 0, 0); изображение все равно остается в памяти.