acFormCursors example acAppCursors

procedure TForm1.acAppCursors1MouseOverObject(Sender: TObject;
  AppObject: TacAppObject; WndHandle: Integer;
  var Cursor: TCursor);
begin
  case AppObject of
    aoBtnClose: acWavPlayer.Play
    aoSysMenu: Caption := 'Click here';
    aoScrollVert: if WndHandle = TreeView1.Handle then
                    Cursor := cr3DArrowNE;
   end;
end;