Там есть событие выбора строки или ячейки - проще его задействовать.
блин. OnCellMouseClick? А то я уже нагородил такого...
function HookProc(Code: Integer; WParam: Word; LParam: Longint): Longint; Stdcall;
var
msg: PEVENTMSG;
begin
if Code >= 0 then
begin
msg:= Pointer(LParam);
case Msg.message of
WM_LBUTTONDOWN, WM_RBUTTONDOWN, WM_MBUTTONDOWN: FrmGetGroup.MouseDown:= True;
WM_LBUTTONUP, WM_RBUTTONUP, WM_MBUTTONUP: FrmGetGroup.MouseDown:= False;
end;
end;
End;