Contador de palavras específicas

Pessoal

Tenho que acrescentar número de forma crescente toda vez que achar uma palavra que determino em um arquivo .txt

Qual a função no Delphi 6 que utilizo para acrescentar (de forma crescente) numeração com 7 dígitos toda vez que achar a palavra pré-determinada?

Exemplo:

Acrescentar 0000001; 0000002; 0000003 etc. (toda vez que achar a palavra "Ajuda")

Ficariam assim:
Ajuda/0000001
Ajuda/0000002       e assim sucessivamente...

Consigo acrescentar os sete dígitos "0000001" mas toda vez que acha a palavra coloca o comanda insere o mesmo número e não de forma crescente.

Segue o comando:

If Copy(linha, 1, 6) =  ‘Ajuda’  then
begin
   linha := ‘0000001/ ‘ + linha;
end;


Rogério