procedure TFEinstellungen.LieferantEinlesen;
begin
  BitBtn20.Enabled:= True;
  ZQueryLieferant.SQL.Text:= 'select NAME from LIEFERANT order by NAME';
  ZQueryLieferant.Open;
  JvDBGrid7.Columns[0].Width:= 145;
  JvDBGrid7.Columns[0].Title.Caption:= 'Name';
  if not ZQueryLieferant.IsEmpty then
    begin
      BitBtn21.Enabled:= True;
      FBefeuchtungBearbeiten.ComboBoxLieferant.Items.Clear;
      FBSKBearbeiten.ComboBoxLieferant.Items.Clear; //<--- hier tritt die Zugriffsverletzung auf

      repeat
        FBefeuchtungBearbeiten.ComboBoxLieferant.Items.Add(ZQueryLieferant.FieldValues['NAME']);
        FBSKBearbeiten.ComboBoxLieferant.Items.Add(ZQueryLieferant.FieldValues['NAME']);

      until ZQueryLieferant.FindNext = False;
    end
      else BitBtn21.Enabled:= False;
end;