procedure TForm1.VrLed3Click(Sender: TObject);
begin try
VrLed1.Active := false;
VrLed2.Active := false;
VrLed3.Active := false;
VrLed4.Active := false;
VrLed5.Active := false;
TVrLed(Sender).Active := true;
set_proy_level(Label1.Caption,vr1.SelectedFile,TVrLed(Sender).Tag);
if vr1.ViewStyle = vsxReport then vr1.Refresh;
except end;End;