Сохранить текущий курсор

procedure TForm2.FormCreate(Sender: TObject);
begin
  // загрузить пользовательский курсор "в индекс", не занятый системой
  Screen.Cursors[1000]:= LoadCursorFromFile('Cross.cur');
  // применить этот курсор к объекту (имеется в виду, компоненту VCL,
  // но у тебя игра ведь на панелях построена), в данном случае, к форме
  Cursor:= 1000;
  // если нужно восстановить, то
  Cursor:= crDefault;
end;

var
  Form2: TForm2;
  cur_old,cur_new: HICON;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  // сохранить
  cur_old:= Screen.Cursors[crDefault];     // или какой нужно
  cur_new:= LoadCursorFromFile('Help.cur');
  SetSystemCursor(cur_new,OCR_NORMAL);
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
  // восстановить
  SetSystemCursor(cur_old,OCR_NORMAL);
end;

  CurrentCursor := Screen.Cursors[crDefault];
  GameCursor := LoadCursor(HInstance, 'arrow');
  SetSystemCursor(GameCursor, OCR_NORMAL);

  SetSystemCursor(CurrentCursor, OCR_NORMAL);

procedure TForm2.Button1Click(Sender: TObject);
var
  def: TIcon;
begin
  def:= TIcon.Create;
  def.Handle:= Screen.Cursors[crDefault];
  def.SaveToFile('default.cur');
  def.Free;
end;