Delphi - Trasferimento File con Componenti TClientSocket e TServerSocket + visualizzazione del progress Download/Upload

Salve a tutti, ho bisogno di realizzare un'applicazione che mi permette di trasferire file e sapere da entrambi i lati (client e server) il progresso del trasferimento...
Ho provato con SendStream e ReceiveBuf ma così facendo non riesco a "sapere" il progresso...
Potete farmi un esempio di trasferimento file + visualizzazione del progresso di trasferimento?
Grazie mille a tutti

il componente TClientSocket non espone niente che ti possa aiutare, potresti adottare la soluzione proposta su stackoverflow: stackoverflow.com/questions/2824326/…