procedure TForm3.FormCreate(Sender: TObject);
begin // При создании формы
// Устанавливаем индекс ([1],[2]) курсора, загруженного в ресурс 
 Screen.Cursors[1] := LoadCursor(HInstance,'ClosedHand_1'); // Сжатая рука
 Screen.Cursors[2] := LoadCursor(HInstance,'OpenHand_1'); // Открытая рука
end;

   Screen.Cursor := 1; // Поменять вид курсора (Сжатая рука)
   Screen.Cursor := 2; // Поменять вид курсора (Открытая рука)

//---------------------------------------------------------------------------------

   Screen.Cursor := crVSplit; // Поменять вид курсора (Стандартные стрелки)
   Screen.Cursor := crDefault; // Поменять вид курсора (Стандартный курсор)