procedure TForm1.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
JvXPProgressBar1.Max := AWorkCountMax;
JvXPProgressBar1.Position := 0;
end;

procedure TForm1.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
JvXPProgressBar1.Position := 0;
end;

procedure TForm1.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
application.ProcessMessages;
JvXPProgressBar1.Position := AWorkCount;
JvXPProgressBar1.Refresh;
JvXPProgressBar1.Repaint;
end;