BestandGrid.Cells[0,0] := 'Chargenr';
  BestandGrid.Cells[1,0] := 'Menge';
  BestandGrid.Cells[2,0] := 'Einheit';
  BestandGrid.DefaultRowHeight := 17;
  BestandGrid.DefaultColWidth := 80;
  BestandGrid.ColCount := 3;
  BestandGrid.Visible:= true;
  BestandGrid.FixedCols := 0;

  y:= 0;
  while y<> i do
  Begin
    BestandGrid.Cells[0,y+1] := Abestr[y].Chargenr;
    BestandGrid.Cells[1,y+1] := FloatToStr(Abestr[y].Menge);
    BestandGrid.Cells[2,y+1] := Einheit;


    y:=y+1;
  End;