written for http://www.experts-exchange.com/Programming/Editors_IDEs/Delphi/Q_22869317.html
check the discussion for more details

Source Code