Sockets,TFileStream and ProgressBar (delphi)

[dyonysos]

hi! I use client/server socket components to send a file. a client app sends a file and the server app gets it.

I know how to display the copying progress in a progressbar when receiving data,
but how can I display in a progressbar how much of the file has been already uploaded
from the client app?

this is how I send the file:

fstream:=tfilestream.Create(opendialog1.FileName,fmOpenRead);
clientsocket1.Socket.SendStream(fstream);