После вызова Application.ProcessMessages, возникает нехватка памяти

Заставляю ActiveX компонент TDjvuCtl перейти на другую страницу. Т.к. переход занимает некоторое время, останавливаю программу на 300мс. После этого, при попытке вставить страницу из TDjvuCtl в Bitmap выдает ошибку: "Not enough storage is available to process this command"
Если Delay не применять, Bitmap заполняется нормально.
Причем эта ошибка возникает если листы у djvu-книги большого размера.
Я так понял при Delay возникает утечка памяти, и для Bitmap уже не хватает места.
Как избавится от этого переполнения? Можно ли заставить винду выделить моей проге больше динамической памяти?

procedure Delay(ms: longint);
var
  TheTime: LongInt;
begin
 while GetTickCount < TheTime do
    Application.ProcessMessages;
end;


procedure frmMain.acnSaveExecute(Sender: TObject);
var
begin
  BM:=TBitmap.Create;
  djvMain.Page:='10';
  Delay(300);
  djvMain.CopyImage;
  BM.Assign(Clipboard);
  ...