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]) + ')' ;