一个lazarus开发的摄像头照镜子源码