The following Delphi/Treescript programs count the no. of lines of code, minus white space, in all Pascal source files contained in all selected Delphi project file(s). The user must select the desired Delphi project file(s) using a standard Open File dialog box. Only the lines of code between “implementation” and “end.” are counted. The Delphi code listing is immediately followed by the code listing of an equivalent Treescript program.