str:TStringList;
str:=TStringList.Create;
str.LoadFromFile('myfile');
str.Count - количество строк