конвертер изображения в *.cur

[IvaNoff2020]

Скомпилировалось только после некоторых изменений:

procedure TForm1.Button2Click(Sender: TObject);
var
  IconSizeX : integer;
  IconSizeY : integer;
  AndMask : Graphics.TBitmap;
  XOrMask : Graphics.TBitmap;
  IconInfo : TIconInfo;
  icons : TIcon;

begin

{Получаем размер иконки}
IconSizeX := GetSystemMetrics(SM_CXICON);
IconSizeY := GetSystemMetrics(SM_CYICON);

{Создаём маску "And"}
AndMask := Graphics.TBitmap.Create;
AndMask.Monochrome := true;
AndMask.Width := IconSizeX;
AndMask.Height := IconSizeY;

{Рисуем на маске "And"}
AndMask.Canvas.Brush.Color := clWhite;
AndMask.Canvas.FillRect(0, 0, IconSizeX, IconSizeY);
AndMask.Canvas.Brush.Color := clBlack;
AndMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);
AndMask.Mask(clWhite);

{Рисуем для теста}
Form1.Canvas.Draw(IconSizeX * 2, IconSizeY, AndMask);

{Создаём маску "XOr"}
XOrMask := Graphics.TBitmap.Create;
XOrMask.Width := IconSizeX;
XOrMask.Height := IconSizeY;

{Рисуем на маске "XOr"}
XOrMask.Canvas.Brush.Color := clBlack;
XOrMask.Canvas.FillRect(0, 0, IconSizeX, IconSizeY);
XOrMask.Canvas.Pen.Color := clRed;
XOrMask.Canvas.Brush.Color := clRed;
XOrMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);

{Рисуем в качестве теста}
Form1.Canvas.Draw(IconSizeX * 4, IconSizeY, XOrMask);

{Создаём иконку}
icons := TIcon.Create;
IconInfo.fIcon := true;
IconInfo.xHotspot := 0;
IconInfo.yHotspot := 0;
IconInfo.hbmMask := AndMask.MaskHandle;
IconInfo.hbmColor := XOrMask.Handle;
icons.Handle := CreateIconIndirect(IconInfo);

{Уничтожаем временные битмапы}
AndMask.Free;
XOrMask.Free;

{Рисуем в качестве теста}
Form1.Canvas.Draw(IconSizeX * 6, IconSizeY, icons);

{Объявляем иконку в качестве иконки приложения}
Application.Icon := icons;

{генерируем перерисовку}
InvalidateRect(Application.Handle, nil, true);

{Освобождаем иконку}
icons.Free;

end;

Но результат какой-то не такой

[Pavia]

Сообщение от IvaNoff2020

Но результат какой-то не такой

Что значит не такой? Принскрин приложите. Можно залить на http://postimages.org

[IvaNoff2020]

Pavia, Результат не такой, потому что у меня задача другая.
Выше kvitaliy, мне посоветовал почитать о win API функции CreateIconIndirect. Сказал, примеров в сети полно. Я искал, искал - не нашлось. Видимо плохо искал.
В итоге, что и нашел совсем не то, что нужно. И это "не то" сначала у меня не работало, теперь работает. Но мне нужно не иконку Form.Caption менять, а сам курсор.
Ниже скину то, что на данный момент я сделал. Там все косячно, но принцип работы должен стать понятен.
На примере круга: задаем его размер в пикселях. выбираем его цвет. сохраняем в *.bmp.
Затем конвертируем в *.ico.
И меняем курсор на свой.

[IvaNoff2020]

IvaNoff2020,
Господа, можете подсказать с некоторым вопросом?
Проблема в том, что .*bmp не поддерживает прозрачность.
И замена курсора после конвертирования не дает возможности (или просто у меня не вышло) изменения размера. Т.е. он масштабируется в меньшую сторону под размер стандартного курсора. Ну, да ладно.

Решил воспользоваться советом MihalNik: "с перемещением изоображения ("курсора"), показывать на соответствующем месте".
Но и тут трудность возникла - потому что если я скрываю курсор, то снова включить его проблематично. Нужно скрыть стандартный курсор при наведении на границах Image и снова показать его за пределами Image.
Вариант с ShowCursor(false) ShowCursor(true) не совсем подходит т.к. не могу указать границы Image2.
Координаты отсчитываются от верхнего левого угла монитора. И смещая окно координаты меняются.
Есть какие аналоги ShowCursor(false)?

[IvaNoff2020]

IvaNoff2020, Уже не надо. Сделал что хотел