function MouseHookHandler(ACode: integer; WParam: WParam; LParam: LParam): LResult; stdcall;
begin
   result:=CallNextHookEx(GMouseHookHandle, ACode, WParam, LParam);
   if (ACode>0) then begin
       case wparam of
           WM_LBUTTONDOWN:
           if (GMouseHookMsgDest<>0) then begin
               PostMessage(GMouseHookMsgDest, WM_CUSTOM_MOUSE_LButtonDown, 0, 0);
           end;
           WM_LBUTTONUP:
           if (GMouseHookMsgDest<>0) then begin
               //PostMessage(GMouseHookMsgDest, WM_CUSTOM_MOUSE_LButtonUp, 0, 0);
           end;
           WM_MOUSEMOVE:
           if (GMouseHookMsgDest<>0) then begin
               //PostMessage(GMouseHookMsgDest, WM_CUSTOM_MOUSE_Move, 0, 0);
           end;
       end;
   end;
end;

procedure TFtFrameListBox.WndProc(var Msg: TMessage);
var CurrentPoint:TPoint;
begin      
   case Msg.Msg of
   WM_CUSTOM_MOUSE_LButtonDown: begin
   end;
   WM_CUSTOM_MOUSE_LButtonUp: begin
   end;
   WM_CUSTOM_MOUSE_Move: begin
   end;
   else begin
       inherited WndProc(Msg);
   end;
   end;
end;