Работа с сетью в сибилдере

При использовании TClientSocket и TServerSocket все ок. Но. Нужно, чтобы обе стороны могли инициировать соединение или обмен, так что по идее надо на каждой стороне заводить и сервер, и клиент. Есть мысль обернуть их в класс и сварганить интерфейс коннект-дисконнект-отправить-реакция_на_прием. проблема с последним - в компоненте есть обработчики OnXxxxx - как их вытащить наружу, чтобы можно было использовать их точно так же, как и в компоненте???