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');
end
else
DBGrid1.Cursor:=crHandPoint;
end
else
begin
DBGrid1.Cursor:=crDefault;
end;
except
exit;
end;
end;