Ayuda en delphi

Alguien me podria proporcionar informacion acerca de como puedo hacer chat mediante sockets (en Visual Basic winsock's) en delphi.

Algun codigo fuente podria servir;