Just a GUI, but VERY basic, program to total up the amount of text lines in a list of files. Made out of necessity, to count total lines of source code in projects.

int i;
AnsiString s;
TStringList* sl;
DWORD Count = 0L;
if (OpenDialog->Execute() == ID_OK)
{
    try
    {
        sl = new TStringList();
        for (i = 0;i < OpenDialog->Files->Count;i++)
        {
            sl->LoadFromFile(OpenDialog->Files->Strings[i]);
            Count += ((DWORD)sl->Count);
        }
        s = Count;
        TotalFilesLabel->Caption = OpenDialog->Files->Count;
        TotalLinesLabel->Caption = s;
    }
    __finally
    {
        delete sl;
    }
}