Processando a Leitura de Arquivo TXT

Pessoal Estou lendo um arquivo retorno a rotina esta abaixo mas eu acrecentei no meu formulario um Gauge1 para poder saber o quanto ai esta faltando para terminal a leitura como e aonde eu debo colocar o procedimento eu que no inicio cola
Gauge1.Progress := 0;
Gauge1.Maxvalue := {aqui que nao sei acresentar o total de linhas que possui o meu registro TXT}

Procedure LeArquivo;
AssignFile(fArquivo,´Retorno.txt´);
{$i-}
Reset(fArquivo);
{$i+}
If (IOResult <> 0) then
begin
Application.MessageBox(´Arquivo não Encontrado´,Erro´,MB_OK+MB_ICONSTOP);
end
else
begin

while not Eoln(fArquivo) do
begin
Readln(fArquivo,fReg);
cNomeEmpresa := Copy(fReg,1,40); // Tamanho 40
Gauge1.Progress := Gauge1.Progress + 1; {acho que e aqui}
end;
end;