Pegar campos da Segunda linha do DBGRID

Olá Meus Colegas
Estou fazendo uma rotina para pegar os campos que quero de um dbgrid,
e na verdade não sei que que acontecesse que ele só me retorna somente os campos da primeira linha, e da segunda em diante não.

OBS:
Antes de pegar os campos eu faço um select e exibo a consulta neste dbgrid

vejam.....

procedure TFRM_PRINCIPAL.BitBtn7Click(Sender: TObject);
var
total0,resultado0,resultado10,resultado20,resultado30,
resultado40,resultado50,resultado60 :array [1..10] of string;
i:integer;

begin

for i := 1 to dbgrid1.DataSource.DataSet.RecordCount //varia de linha ou casos que possuo no dbgrid
do begin
resultado0[i]:=pchar(dbgrid1.Fields[0].AsString); //recebe os campos q quero do dbgrid
resultado10[i]:=pchar(dbgrid1.Fields[1].AsString);
resultado20[i]:=pchar(dbgrid1.Fields[3].AsString);
resultado30[i]:=pchar(dbgrid1.Fields[4].AsString);
resultado40[i]:=pchar(dbgrid1.Fields[8].AsString);
resultado50[i]:=pchar(dbgrid1.Fields[7].AsString);

total0[i]:=´ INTERNAÇÕES ´ +
´ Codigo Prestador >>´+ resultado0[i] +
´ Nome Prestador >> ´+ resultado10[i] +
´ Nome Associado >> ´+ resultado20[i] +
´ Data Procedimento >> ´+ resultado30[i] +
´ Dias Ate Hoje Internados >> ´+ resultado40[i] +
´ Diagnostico Doença >> ´+ resultado50[i] ;

showmessage(´´+total0[i]);

end;

Vamos supor que o meu numero de registro =2
(dbgrid1.DataSource.DataSet.RecordCount)

ele começa a pegar os campos da minha primeira linha
e não passa para a segunda linha,
Bom vcs sabem porque acontece isto?
Porque ele não pula para a segunda linha do DBGRID e fica sempre na primeira?
Desde já agradeço sua Opinião ou Dica