查出文本文档共几条记录解决办法

查出文本文档共几条记录
在.txt里面的数据有多行，如下
12345     asdfg
23145     fdjdj
25436     safhjk
...         ...
 
请教各位神仙，delphi有没有什么相关函数能够查出该文本文档共几条记录
或者查出该文本文档共几行也行，有没有这样的函数啊？？？？？
请指教~！！！

[解决办法]
var
s: Strings;
begin
s := TStringList.Create;
s.LoadFromFile( 'c:\test.txt ');
ShowMessage( '总行数: '+IntToStr(s.Items.Count));
s.free;
end;