function CountFileLines(const FileName: string): integer; begin with TStringList.Create do try LoadFromFile(FileName); result := Count; finally Free; end; end;