(5)水雷的控制： if image6.top>=50 then begin image6.top:=image6.top-6; image6.Visible:=True end else image6.Visible:=False;