Esta dando erro

:( Pessoal estou lendo um arquivo txt. e entao eu quero que no momento da leitura ele mostrasse o processamento atraves de um gauge e entao eu estou utilizando estes dois comandos. que me indicaram no clube

Mas esta dando o erro. desclaracao nao identificada alguem pode me ajudar
:lol:

iFileLength := FileSeek(iFileHandle,0,2)/40
Gauge1.Maxvalue := Trunc( FileSeek(iArquivo,0,2)/40)