#pas

 type
 
  THiAsmClass = class(TDebug)
  private

  public
     ...    
     ...
     ...
     onPath:THI_Event;
  end;
  
 implementation

...

function ChildCallback(HWnd: THandle; Msg: Cardinal;   
  WParam, LParam: Integer): Cardinal; Stdcall;
  var path: PChar;
begin  
  case Msg of  
//  Одиночный клик левой кн. мыши 
    WM_LBUTTONDOWN:   
      begin  
        MessageBeep(0);
      end;
      
// Двойной  клик левой кн. мыши  
    WM_LBUTTONDBLCLK:
      begin
          path := PathExplorerTree();
          _hi_onEvent(onPath, path);
      end;
    WM_KEYDOWN:
      begin
        //--
      end;                    
  end;   

// Не забываем вызвать оригинальную оконную процедуру   
  Result := CallWindowProc(Pointer(GetWindowLong(HWnd, GWL_USERDATA)),   
    Hwnd, Msg, WParam, LParam);   
end;