Arquivo TXT! URGENTE! Quantas Linhas?

tipo c tem q procurar por um EOF é um caracter especial
end of file
num lembro como

desculpe gostaria de saber exatamente quantas linhas tem o arquivo...

desculpe gostaria de saber exatamente quantas linhas tem o arquivo...[/quote:847bc77bf7]


PRECISO SABER TB COMO FAÇO PARA LER LINHA A LINHA NO ARQUIVO TXT....

Var ARQUIVO:TextFile; I:Integer; Linha:String;
begin
OpenDialog1.Execute;
AssignFile(Arquivo,Opendialog1.Filename);
Reset(Arquivo);
I:= 0;
While not Eof(Arquivo) do begin
ReadLn(Arquivo,Linha);
Showmessage(´Linha do Arquivo: ´+Linha);
inc(I);
end;

CloseFile(Arquivo);
Showmessage( ´Quantidade de linhas: ´+inttoStr(I));


end;