Created tool.pas with list procedures etc etc 

sbadfshghdh