Отловить проблемы с памятью

[Kronos913]

Недавно в программу загрузил сразу 40 больших фотографий (5000х3000 примерно)
На загрузке 25й фотографии программа выдала ошибку - нехватка памяти

В принципе, я придумал решение для проблемы, которое сначала загружает изображение в BitMap, и если его размеры превышают какое-то там значение - то сначала изображение уменьшается, а потом только загружается

Решение вроде как и хорошее, но теперь все фотографии стали грузиться дольше. Так что тоже решение не очень...

Вопрос такой: как отловить ошибку перегрузки памяти? Так чтобы сжатие применять только в случае перегруза, а иначе загружать все как обычно?

И при этом не перепутать ошибку перегруза памяти с ошибкой чтения файла

[BDA]

  try
    loadBig();
  except
     on EOutOfMemory do loadSmall();
  end;

[ForenLi]

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

Так чтобы сжатие применять только в случае перегруза, а иначе загружать все как обычно?

А вы уверены, что хватит памяти на сжатие в этом случае?

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

Недавно в программу загрузил сразу 40 больших фотографий (5000х3000 примерно)

Они вам точно сразу нужны?

[Kronos913]

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

Они вам точно сразу нужны?

Одна из функций программы - просмотреть все фото в папке

[Kronos913]

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

А вы уверены, что хватит памяти на сжатие в этом случае?

Я просто сделал вот такой вот код загрузки изображений:

Function ImageLoadMaxSize(const FileName:string; var Img:TImage; const MaxSize, NewSize:word): boolean;
var
  bmp1, bmp2: TBitMap;
begin
  bmp1:= TBitMap.Create;
  If BmpLoad(bmp1, FileName) then begin
    If (bmp1.Height>MaxSize) or (bmp1.Width>MaxSize) then begin
      bmp2:= TBitMap.Create;
      BitMapToSize(bmp1, bmp2, NewSize);
      Img.Picture.Assign(bmp2);
      bmp2.Free;
    end else Img.Picture.Assign(bmp1);
    Result:=true;
  end else result:= false;
  bmp1.Free;
end;

Использованные в коде самодельные процедуры:
BmpLoad - определяет расширение файла и загружает в BitMap JPEG, PNG, или BMP
BitMapToSizeXY - находит размеры для сжатого BitMap, так чтобы ни одна из сторон не превышала лимит

Procedure BitMapToSize(var BmpIn, BmpOut: TBitMap; const Size:Word);
var
  Rect: TRect;
  x, y: word;
begin
        BmpOut.Assign(nil);

        BitMapToSizeXY(BmpIn, Size, x, y);

        with Rect do begin
           Left := 0;
           Top := 0;
           Right := x;
           Bottom := y;
        end;

        BmpOut.Width:=x;
        BmpOut.Height:=y;

        BmpOut.Canvas.StretchDraw(Rect, BmpIn);
end;

С таким кодом перегруза памяти не происходит. Поставил ограничение в 1000х1000 по размеру, все что меньше - сжать