Added Free Pascal example