Me ajudem por favor com esse arquivo Texto.

procedure percorreArquivoTexto ( nomeDoArquivo: String );
var arq: TextFile;
I,J : integer;
linha: String;
begin
AssignFile ( arq, nomeDoArquivo );
Reset ( arq );
ReadLn ( arq, linha );
I := 1;
J := 1;
while not Eof ( arq ) do
begin
{ Processe a linha lida aqui. }
{ Para particionar a linha lida em pedaços, use a função Copy. }
// o comando de mover um campo da linha lida para uma coluna do
// stringgrid seria (um exemplo):

StringGrid1.Cells[I,J] := copy(linha, 5, 6) // o 5 se refere a posição
// inicial do campo a ser movido e o 6 ao
// número de posições que ser quer mover

// a cada campo movido somar um ao I
// a cada linha movida somar 1 ao J

ReadLn ( arq, linha );
end;
CloseFile ( arq );
end;