procedure TViewPlay.Update(const SecondsPassed: Single; var HandleInput: Boolean);
const
  MoveSpeed = 10;
begin
  inherited;
  MyViewport.Camera.Translation := MyViewport.Camera.Translation +
    MyViewport.Camera.Direction * SecondsPassed * MoveSpeed;
end;