Hola:
Muchas gracias a los que participaron, pero entonces mi código no es una burrada?
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
Var
Fichero: TextFile;
Linea: String;
Contador: integer;
begin
Contador :=0;
AssignFile(Fichero,'C:\Prueba.txt');
Reset(Fichero);
While Eof(Fichero)=False Do
Begin
Readln(Fichero,Linea);
Inc(Contador);
end;
Closefile(Fichero);
ShowMessage(IntToStr(Contador));
Lo dejo así, y al que me critique le digo...
Mu?