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

[_-Re@l-_]

Проблема видна из заголовка.
Дело, собственно, вот в чём.
Вот код:

procedure TForm1.FormPaint(Sender: TObject);
var i,j,k:integer;
begin
     X:=0;Y:=450;
     TexturBuf:=TBitmap.Create;
     TexturBuf.Width:=640;
     TexturBuf.Height:=480;
     TexturBuf.Canvas.Rectangle(0,0,640,480);
     while x<480 do
     begin
          Spline:=TBitmap.Create;
          Spline.LoadFromFile('e:\pics\1.bmp');
          TexturBuf.Canvas.Draw(X,Y,Spline);
          X:=X+20;
          Spline.Free;
     end;
    Form1.Image1.Canvas.Draw(0,0,TexturBuf);
end;

Не понимаю, как может быть нехватка памяти если картинка весит 4 кб!
P.S. Попробовал сделать for i:=1 to 3 do и далее весь тот цикл, но пишет тоже самое....

[Somebody]

Столько (учитывая частоту OnPaint) TexturBuf = TBitmap.Create, а где Free или Destroy? И читать файл в OnPaint, мягко говоря, нехорошо.

[_-Re@l-_]

Столько TexturBuf = TBitmap.Create

Таковых всего одна
Много лишь

Spline:=TBitmap.Create;

[Пепел Феникса]

     TexturBuf:=TBitmap.Create;

итак, память выделяется при каждом OnPaint.

procedure TForm1.FormPaint(Sender: TObject);
begin
 Form1.Image1.Canvas.Draw(0,0,TexturBuf);
end;

procedure TForm1.FormCreate(Sender: TObject);
var Spline:TBitMap
     x,y:integer;
begin
 X:=0;
 Y:=450;
 TexturBuf:=TBitmap.Create;
 TexturBuf.Width:=640;
 TexturBuf.Height:=480;
 TexturBuf.Canvas.Rectangle(0,0,640,480);
 Spline:=TBitmap.Create;
 Spline.LoadFromFile('e:\pics\1.bmp');
 while x<480 do
 begin
  TexturBuf.Canvas.Draw(X,Y,Spline);
  X:=X+20;
 end;
 Spline.Free;
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
 TexturBuf.Free;
end;

оптимизировать учитесь

[_-Re@l-_]

Ох как... Я и забыл про

итак, память выделяется при каждом OnPaint.

А ведь знал..