WebSocket Сервер

[utmost]

Ищется рабочий пример реализации хэндшейка и обмена данными на вэбсокетах. Пусть даже не пример, а хотябы кусок кода для хэндшейка, в сети подобное только в DelphiOnRails, но из-за одних вэбсокетов нехочется его использовать, за ним тянется superobject, luascript, httpstub и много чего ещё.

PS: Использую ICS и DelphiXE, Хочется найти кусок кода хотя-бы для хэндшейка между браузером и сервером на Delphi, т.е формирование валидного ответа сервера.

Заранее благодарю. Всех с рождеством.