Недостаточно памяти для обработки команды TBitMap

[finder_sl]

Доброго времени суток.
Такая проблема: в программе создается TBitMap размером 7000х5000. Программа вылетает с ошибкой "Недостаточно памяти для обработки команды"
При этом, ошибка появляется через раз, то есть иногда Все срабатывает корректно...
В чем может быть дело?

[_Dmitry]

А старую копию удаляете, прежде чем создать новую?

Сделал такую программу:

procedure TForm1.Button1Click(Sender: TObject);
var
  b: TBitMap;
begin
  b:=TBitMap.Create;
  b.Width:=7000;
  b.Height:=5000;
  b.Canvas.Ellipse(100,100,300,200);
  Form1.Canvas.Draw(0,0,b);
//  b.Free;
end;

Если не использовать b.Free, вылетает с третьего раза с такой же ошибкой.

[finder_sl]

Да, удаляю... Но при этом, она вылетает вообще при новом запуске. То есть, запускаю программу она отрабатывает нормально, закрываю ее, снова запускаю - и она выводит ошибку. При этом не обязательно после одного запуска...

[_Dmitry]

Тогда, код в студию.

[finder_sl]

TMain = class
   private
    FCan: TBitmap;
   public
    property Can: TBitmap read FCan write FCan;
    constructor Create;
    {.....Список методов}

  end;

constructor TMain.Create;
begin
 Can:=TBitmap.Create;
 Can.Width:=4724;
 Can.Height:=7087;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
var c: TMain;
begin
 try
  c:=TMain.Create;
 {.....Вызов других методов}
 finally
 c.Can.Free;
end;

end;

[Alex Cones]

А сам Main очищаете?

[finder_sl]

Да, если деструктор TObject подходит для этой цели. В TMain больше нет никаких полей, только методы.

[Alex Cones]

Напрямую вызываете деструктор? Попробуйте free для Main по OnDestroy формы.

[finder_sl]

Не помогает. И ошибка возникает еще в BitBtn1Click.

[finder_sl]

И я только что проверил приведенный Вами пример - он тоже не работает. С той же самой ошибкой вылетает при первом клике.