[marcial]

Hola Christor1892

Creo que este ejemplo, que aunque es de un DBGrid te puede servir: (Lo colocas en el OnMouseMove)

Código Delphi [-]
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var   pt: TGridcoord;
begin

  try
  pt:= DBGrid1.MouseCoord(x, y);
  if pt.y=0 then
        begin

        if FileExists(('C:\DIRECTORIOCURSORES\SelectGreen.cur'))  then
           begin
                DBGrid1.Cursor:= 1;
                Screen.Cursors[1] := LoadCursorFromFile('\\SERVIDOR\C\DISCAL\CURSORES\SelectGreen.cur'); {El cursor que te hayas creado}
           end
           else
           DBGrid1.Cursor:=crHandPoint;
        end
  else
        begin
        DBGrid1.Cursor:=crDefault;
        end;
   except
   exit;
   end;
end;