[Tyrrrz]

Код:

imgPic.Picture.LoadFromFile('image_cache\'+PhotoName);

Вываливается после этой строчки на EOutOfMemory.
Картинка - jpg, 35кб.
Путь правильный, картинка загружается, если убрать другую часть кода:

Код:

  ParseProfile;
  Profile:=inParseProfile;
  lblName.Caption:=Profile.Name;

ParseProfile - парсит файл, а inParseProfile - парсит уже отпарсенный файл в рекорд.
Эти два кода работают только по-отедьности, хотя никак не пересекаются. В каком месте копать?
EDIT: уже и по-отедьности не работают. первый код перестал работать в любом состоянии.

[angvelem]

Так точно будет грузить:

Код:

...
  jpg := TJPEGImage.Create;
  try
    jpg.LoadFromFile('image_cache\' + PhotoName);
    ImgPic.Picture.Assign(jpg);
  finally
    jpg.Free;
  end;
...

[Tyrrrz]

Сообщение от angvelem

Так точно будет грузить:

Код:

...
  jpg := TJPEGImage.Create;
  try
    jpg.LoadFromFile('image_cache\' + PhotoName);
    ImgPic.Picture.Assign(jpg);
  finally
    jpg.Free;
  end;
...

Оказалось, что дело было в большом количестве экспортируемых функций и uses юнитов. Я просто удалил то, что не использую и ошибка пропала.
Спасибо за ответ в любом случае.