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;