var Strings: TStringList;

...

Strings := TStringList.Create;
Strings.LoadFromFile('c:\vdebug.txt');
ShowMessage(IntToStr(Strings.Count));