procedure TForm12.FormResize(Sender: TObject);
begin try
Label1.Left :=Panel3.Width-138;
VrGradient1.Width :=Panel3.Width-26;
tree1.Width := Shape1.Width-2;
tree1.Height := Shape1.Height-2;
except end;End;