Out of system resources

[HelloWold]

Здравствуйте.
Есть функция:

void GenerateTransparenceImage(String Key, TImage *Infile, TImage *Outfile, int namber_gen_image, int transparence, TJPEGImage *jpeg)
{
	BLENDFUNCTION blend = {AC_SRC_OVER, 0, transparence, 0};
	::AlphaBlend(Infile->Canvas->Handle, 0, 0, Infile->Picture->Width, Infile->Picture->Height,
				 Outfile->Canvas->Handle, 0, 0, Outfile->Picture->Width, Outfile->Picture->Height,
				 blend
				);
	jpeg->Assign(Infile->Picture->Bitmap);
	jpeg->SaveToFile(ExtractFileDir(Application->ExeName) + "\\UnicImage\\" + Key + IntToStr(namber_gen_image) + ".jpeg");
	Outfile->Picture = NULL;
	Infile->Picture = NULL;
}

которая накладывает одно изображение на другое.

Обращение к функции производится вот так:

GenerateTransparenceImage(Key, Infile, Outfile, namber_gen_image, transparence, jpeg);

Переменные:

 TJPEGImage *jpeg = new TJPEGImage();
 TImage *Outfile = new TImage(NULL);
 TImage *Infile = new TImage(NULL);

Так вот, при дебаге программы я получаю ошибку

Exception class EOutOfResources with message 'Out of system resources'.

в строке

jpeg->SaveToFile(ExtractFileDir(Application->ExeName) + "\\UnicImage\\" + Key + IntToStr(namber_gen_image) + ".jpeg");

В итоге файл сохраняется пустым. Ну и сама программа зависает.
Скажите, что я не так делаю
Спасибо за внимание...