Enviar y recibir archivos binarios sockets

[maxinitto]

Hola:

Despues de buscar , buscar y rebuscar no he tenido valor a encontrarme con un codigo que funcione, he probado muchos de muchas pags incluyendo esta pag y nada no tengo valor a enviar y recibir archivos con los componentes sockets que trae delphi 2009 por defecto, y bueno el caso es que yo quiero enviar desde el servidor al cliente un archivo .dat y bueno aver si alguien me puede proporcionar algun codigo que funcione por que es que ya me rindo me he tirado aqui dias y dias buscando hasta en pags rusas y nada xd bueno el fin de esto es que estoy haciendo una aplicacion client/server y tengo un filemanager entonces yo al extraer todos los archivos y carpetas de un directorio uso una funcion que extrae el icono que tiene cada archivo o carpeta y ese icono lo almaceno en un TImageList en el server entonces guardo los recursos del imagelist en un archivo .dat para enviar al cliente y cargarlo en otro imagelist y cargar cada icono a su respectivo directorio o archivo en el cliente y eso jejee....

PD: Solo encontre para la verdad un codigo pero solo envia .txt y de peso limitado...

Gracias de antemano.