procedure TForm1.Panel4Resize(Sender: TObject);
begin try
VrGradient3.Width := Panel4.Width - 6;
except end;End;