Delphi - Upload di un file con progressbar (socket)

Salve a tutti ho un piccolo problema...

Ho sviluppato un'applicazione con componenti Tclientsocket e Tserversocket per trasferire file tra i 2... Ora vorrei far si che la progressbar del lato client (quello che invia) avanzasse durante il trasferimento del file. Nel lato server ho risolto il tutto lavorando sull'evento OnRead...

Potete darmi dei consigli per favore? Grazie infinitamente!

Ragazzi e' importante! Non c'e' nessuno che puo aiutarmi?