How to indicate progress when sending file over tcp socket connection-D7/Indy10.

I want to use the progressbar to indicate how much of a file has been
written to the socket connection, but dont know how to do this. This is the
piece of code i use to send the file:

FStream := TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite);

     try
            IdStream := TIdStreamVCL.Create(fstream);

   try

               form1.tcpclient.IOHandler.Write(IdStream, 0, True);

  finally
                IdStream.Free;
            end;
        finally
            FStream.Free;
        end;
Is there someway i can integrate the progressbar with this?
Thanks