Я думаю происходит следующее:
Вы создаете pic := TJPEGImage.Create;
Потом передаете его как ссылку в Image1.Canvas.Draw(0, 0, pic);
Компилятор считает, что вы будете использовать далее это объект т.к. вы его не уничтожаете, а раз вы этого не делаете, значит и ему по выходу из процедуры делать этого не стоит.
Попробуйте добавить Image1.Free; перед выходом из процедуры.
|