procedure TForm9.JvXPBar1Items5Click(Sender: TObject);
begin try
pgBuffer.free;
list1.Invalidate;
list1.Items.Clear;
FormCreate(Sender);
list1.Update;
except end;End;