fork from https://code.google.com/p/delphi-hook-library/