procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin try
if ((Msg.Message = WM_KEYDOWN) and (Msg.wParam = 8))and( vr1.Focused ) then begin
   Handled:=true;
   if oxGraphicButton5.Enabled then oxGraphicButton5Click(nil);
end;
except end;End;