Добавление курсора мыши к скриншоту

[Pavel_S]

Здравствуйте, уважаемые программисты, подскажите пожалуйста альтернативный вариант по сабжу, или помогите найти ошибку в коде.
Данная процедура работает по таймеру, через некоторое время выдаётся ошибка, если закоментить жирные строки, то всё работает нормально.

procedure TForm1.Grab;
var
CurInfo: TCursorInfo;
IconInfo: TIconInfo;
ACursor:Hicon;
MyCursor: TIcon;
...
begin
CurInfo.cbSize := SizeOf(CurInfo);
GetCursorInfo(CurInfo);
Acursor := CurInfo.hCursor; //
Pt := CurInfo.ptScreenPos;
GetIconInfo(Acursor ,IconInfo); //
...
DrawIcon(MyBmp.Canvas.Handle,(Pt.X-IcoInfo.xHotspot)-myleft,(Pt.Y-IcoInfo.yHotspot)-mytop,ACursor);
end;

[eduard93]

Смотрим справку для GetIconInfo:

Функция GetIconInfo создает точечные рисунки для членов hbmMask и hbmColor структуры ICONINFO. Вызывающая прикладная программа должна управлять этими точечными рисунками и удалять их, когда они больше не нужны.

Вы их удаляете?

[Pavel_S]

Спасибо за совет и пояснения, нашёл чуть-раньше код где они удаляются и ошибок не стало)