Pascal Stuff

Created on Lazarus.