[ecfisa]

Hola gusspagano.

Para calcular las líneas del archivo de texto podrías hacer:

Código Delphi [-]
function FileNumberLines(Nombre: string): Int64;
begin
  if FileExists(Nombre) then
    with TStringList.Create do
    try
      LoadFromFile(Nombre);
      Result:= Count;
    finally
      Free;
    end
  else
    Result:= -1;
end;

Y si el archivo llegara a ser tan enorme que no fuera viable usar TStrings:

Código Delphi [-]
function BigFileNumberLines(Nombre:string): Longint;
var
  Num: Integer;
  f: TextFile;
  s: string;
begin
  Num:= 0;
  AssignFile(f,Nombre);
  try
    Reset(f);
    while not eof(f) do
    begin
      Readln(f,s);
      Inc(Num);
    end;
    Result:= Num;
    CloseFile(f);
  except
   Result:= -1;
  end;
end;

Saludos.