procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject;  Shift: TShiftState; X, Y: Integer);var  Ht: TcxCustomGridHitTest;begin  Ht := TcxGridSite(Sender).GridView.Viewinfo.GetHitTest(X,Y);  If (Ht is TcxGridRecordCellHitTest) and   (TcxGridRecordCellHitTest(Ht).Item.Properties is TcxHyperLinkEditProperties) then    Screen.Cursor := crHandPoint  else    Screen.Cursor := crDefault;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  if Screen.Cursor <> crDefault then     Screen.Cursor := crDefault;end;