Blocking socket / Sockets Bloquants - Delphi 3.0 Client/Server

Je suis la recherche d'exemples de codes concernant l'utilisation de
sockets bloquants en tant que client et en tant que serveur. Envoyez moi des
fichiers, SVP.

Merci.

I'm looking for a sample code of blocking socket as a client and as a
server. Please send me some files.

Thanks