[Freeman]

Исходники чата есть в $(Delphi)\Demos\Internet\Chat. Там клиент-сервер, но его можно переделать в p2p, объединив клиент и сервер в одной программе. P2p оно самое и есть: каждый сам себе и клиент, и сервер.