[http://neten.org]

Производится ли в МР ImageDestroy после выхода из процедуры? Если Image определить локально.

procedure xxx(image_name:string);
var
Img:Image;
begin
Img:=loadimage('/'+image_name+'.png');
drawimage(Img,0,0)
end;