Зависание программы обработки курсора

[stlcrash]

Есть функция сравнения курсора с эталонным.
функция работает в таймере. Срабатывает ~10 000 раз и вылетает эксцепшин в юните Vcl.Graphiсs

First chance exception at $76ADC54F. Exception class EOutOfResources with message
'Параметр задан неверно.
'.
Process test.exe (15600)


Вопрос простой: С чем связано и как с этим быть.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, sMemo;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    sMemo1: TsMemo;
    procedure Timer1Timer(Sender: TObject);

    function CompareCur(curName: string): boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.CompareCur(curName: string): boolean;
var
  Bitmap,BitmapKursor : TBitmap;
  CI : TCursorInfo;
  F1, F2: TmemoryStream;
  IconIMG:TIcon;
begin
  IconIMG  := TIcon.Create;
  Bitmap := TBitmap.Create;
  BitmapKursor:= TBitmap.Create;
  f1:=TmemoryStream.create;
  F2:=TmemoryStream.create;

  CI.cbSize := SizeOf(CI);
  GetCursorInfo(CI);
  IconIMG.Handle:=CI.hCursor;
  Bitmap.Width := IconIMG.Width;
  Bitmap.Height := IconIMG.Height;
  BitmapKursor.Width := IconIMG.Width;
  BitmapKursor.Height := IconIMG.Height;
  BitmapKursor.LoadFromFile('BITMAP\'+curName+'.bmp');
  Bitmap.Canvas.Draw(0, 0, IconIMG);
  BitmapKursor.SaveToStream(f1);
  Bitmap.SaveToStream(f2);
  if comparemem(f1.memory, f2.memory, f1.size) then  // побайтовое сравнение всего файла
  result:=true else result:=false;
  f1.free;
  f2.free;
  IconIMG.Free;
  Bitmap.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
  if CompareCur('курсорбаф') then sMemo1.Lines.Add('1');
timer1.Enabled:=true;
end;

end.

[stlcrash]

РЕШЕНО
Как обычно проблема в моей невнимательности
BitmapKursor:= TBitmap.Create;
но не освободил в конце функции..

[evg_m]

так надо же удалять все все так часто создаваемые объекты.

  IconIMG  := TIcon.Create;
  Bitmap := TBitmap.Create;
  BitmapKursor:= TBitmap.Create;
  f1:=TmemoryStream.create;
  F2:=TmemoryStream.create;

А еще лучше не дергать систему постоянно на их создание и постоянное чтение файла(кеширование конечно это эту временную задержку { LoadFromFile } частично снимает)

TForm1 =class
...
  procedure FormCreate(sender: TObject); // заранее один раз при старте создать все нужные объекты.
  procedure FormDestroy(sender: TObject); // а при завершении приберем за собой
private // да и нужны-то по большому счету 
  f1: TMemoryStream; // поток для хранения эталона
    (один раз его заполнили и все) 
  f2: TMemoryStream; // поток для записи тестируемого объекта
  ... // и его источники данных 
end;

procedure TForm1.Create(sender: TObject);
begin
  f1:=TMemoryStream.Create;
  ....
  
  f2:=TmemoryStream.Create;
 ....
end;

procedure Tform1.Destroy(sender: TObject);
begin
  f1.Free;
  ...
  
  f2.Free;
end;

function TForm1.CompareCur(curName: string): boolean;
var
  CI : TCursorInfo;
begin
  CI.cbSize := SizeOf(CI);
  GetCursorInfo(CI);
  IconIMG.Handle:=CI.hCursor;
  Bitmap.Canvas.Draw(0, 0, IconIMG);
  f2.position:=0;
  Bitmap.SaveToStream(f2);
  result:=comparemem(f1.memory, f2.memory, f1.size);  // побайтовое сравнение всего файла
end;