Передача файла. Привязать ProgressBar

[Shouldercannon]

Есть

procedure TForm4.Button1Click(Sender: TObject);
var
  FS: TFileStream;
begin
  ProgressBar1.Position := 0;

  IdTCPClient1.Connect;
  FS := TFileStream.Create('C:\Delphi\picture.bmp', fmOpenRead or fmShareDenyNone);
  IdTCPClient1.IOHandler.Write(FS, FS.Size, True);
  FS.Free;
  IdTCPClient1.Disconnect;
end;

procedure TForm4.IdTCPClient1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  ProgressBar1.Position := AWorkCount;
  Application.ProcessMessages;
end;

procedure TForm4.IdTCPServer1Execute(AContext: TIdContext);
var
  FS: TFileStream;
begin
  FS := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'picture.bmp', fmCreate);
  AContext.Connection.IOHandler.ReadStream(FS);
  Fs.Free;
end;

К клиенту удалось привязать ProgressBar, а к серверу нет. И как вывести количество переданных байт?
Socket's не предлагать, так как от них отказался из-за не корретной работы в Delphi 2010.