procedure TForm3.Button1Click(Sender: TObject);
begin try
form1.stop_save := true;
form1.vr1.Refresh;
Close;
except end;End;