PROCEDURE TFSTOKISLEMFISI.Button2Click(Sender: TObject);
VAR
  l: tstringlist;
  a, i: integer;
  YENINO: STRING;
  S:Extended;
  KODU, ADI, BIRIM, SNO, SICILNO, KDV, ADET, FIYAT, KDVTUTAR, TUTARI: STRING;
BEGIN
  IF (RXADET.Value <> 1) THEN
  BEGIN
    KODU := grid.Cells[1, er];
    ADI := grid.Cells[2, er];
    BIRIM := grid.Cells[3, er];
    KDV := GRID.Cells[4, er];
    ADET := '1';
    FIYAT := grid.Cells[6, er];
    KDVTUTAR := grid.Cells[7, er];
    TUTARI := GRID.Cells[8, er];
    SNO := grid.Cells[9, er];
    YENINO := grid.Cells[10, er];
    SICILNO := grid.Cells[10, er];
    // GRID.ColumnHeaders.Assign(L);
    s := RXADET.Value - 1;
    er:=er+1;
    FOR a := 1 TO S DO
    BEGIN
      YENINO := DMSTOK.Numarator(YENINO);
      GRID.Cells[0, er] := '+';
      GRID.Cells[1, er] := KODU;
      GRID.Cells[2, er] := ADI;
      GRID.Cells[3, er] := BIRIM;
      GRID.Cells[4, er] := KDV;
      GRID.Cells[5, er] := ADET;
      GRID.Cells[6, ER] := FIYAT;
      GRID.Cells[7, ER] := KDVTUTAR;
      GRID.Cells[8, ER] := TUTARI;
      GRID.Cells[9, ER] := YENINO;
      GRID.Cells[10, ER] := SICILNO;
      er:=er+1;
    END;
    GRID.SetFocus;
  END;
END;