Рисуем курсор (*.cur) каким-нибудь редактором, затем запихиваем его в файл ресурсов *.res (лучше в Project1.res). Затем в коде пишем:
// объявляем константу
const
crMyCursor = TCursor($101);
.. .
// загружаем курсор из ресурсов
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'MY_CURSOR');
// указываем его имя
// все готово
Form1.Cursor := crMyCursor;