Free Pascal Case Statement