[Resolvido] while not Eof () nao le a ultima linha do arquivo

Olá,

nao tenho grandes conhecimentos em delphi, gostaria de uma ajuda:

o programa le um arquivo txt e insere seus dados em um banco

para isto preciso percorrer todas as linhas do txt

AssignFile (arq, vCaminhoCompletoArq);
	Reset (arq);
	ReadLn ( arq, linha );

	vLinha := TStringList.Create;
	vArquivoParaContar.LoadFromFile(vCaminhoCompletoArq);
	pbArquivo.Position:=0;
	pbArquivo.Min:=0;
	pbArquivo.Max:=vArquivoParaContar.Count;
	lblQtdTotalLinhas.Caption:=inttostr(vArquivoParaContar.Count);

	while not Eof ( arq ) do
	begin
 ShowMessage(linha);
	end

o problema é que desa maneira ele nao mostra a ultima linha do arquivo, se arquivo tem 7 mostra ate a 6

alguem tem alguma sugestao como posso resolver isso?

vlw ae