[lmikle]

1. Создаешь ресурс с твоим курсором и компилишь его в res-файл.
2. Загрузка курсора:

Код:

const
  crHandFlat = 5;
  crHandGrab = 6;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  // Load additional cursors
  Screen.Cursors[crHandFlat] := LoadCursor(HInstance, 'HandFlat');
  Screen.Cursors[crHandGrab] := LoadCursor(HInstance, 'HandGrab');
end;

3. Использование:

Код:

Screen.Cursor := crHandGrab;
Self.Cursor := crHandFlat;