SelectShapes Delphi Speed and Error