[Freeongoo]

нужно создать bitmap, пишу так

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
procedure CreateBitMap();
var
  Form1: TForm1;
  BitMap : TBitMap;

implementation

{$R *.dfm}
procedure CreateBitMap();
begin
  BitMap := TBitMap.create;
  BitMap.Height :=21517;
  BitMap.Width := 1276;
  BitMap.PixelFormat := pf15bit	;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    CreateBitMap();
end;

end.

выдает ошибку что не хватает памяти для выполнения. Но мне нужно чтобы был именно такого большого размера bitmap. Можно ли как-то выполнить?