Fixed Delphi 2010 examples