procedure TForm9.JvXPBar1Items3Click(Sender: TObject);
var pos1:Integer;
begin try
for pos1:=0 to pgBuffer.Count -1 do
   list1.Checked[pos1]:=(TJvXPBarItem(Sender).Tag=1);
except end;End;