An efficient Timer for Delphi and Freepascal