probleme mit dem erneuern von array inhalten

[agm65]

hi leute ich hab nen problem und komm selber nicht drauf:

Delphi-Quellcode:

 TypCountmitPad : Array [1..4] of Integer;
 TypCountohnePad : Array [1..4] of Integer;


datamod.DataModule1.CoesCountQuery.Open;

      if datamod.DataModule1.CoesCountQuery.Eof then
      begin
        datamod.DataModule1.CoesCountQuery.First;
      end;


      while not datamod.DataModule1.CoesCountQuery.Eof  do
       begin

         if (datamod.DataModule1.CoesCountQuery.FieldValues['shipping_type'] = 2) then
         begin
           if (datamod.DataModule1.CoesCountQuery.FieldValues['avskey_pad'] = Null)  then
             TypCountmitPad[1] := datamod.DataModule1.CoesCountQuery.FieldValues['anzahl']
           else
             TypCountohnePad[1] := datamod.DataModule1.CoesCountQuery.FieldValues['anzahl']
         end;

       datamod.DataModule1.CoesCountQuery.Next;
      end;



     mainform.lblCountNachname.Caption     := 'Nachname: (' + inttostr(TypCountmitPad[1]) + '/' + inttostr(TypCountohnePad[1])  + ')' ;

ich habe insgesamt 4 von diesen blocken..hab jetzt nur 3 rausgelöscht damit es für die anzeige nicht zuviel wird..
also beim programm start stimmt die anzeige..alles ist so wie es soll...wenn ich jetzt weniger oder mehr db einträge habe und die function nochmal im progg ausführe ändert sich nichts..woran könnte das liegen ...ich vermure die array einträge werden nicht richtig überschrieben ?