1. 개발/실행 플랫폼 
  (1) OS : Windows 7
  (2) 개발툴 : Delphi 7
  (3) 사용 Database : Firebird 2.1

2. 개발 중인 프로그램 : 바코드 자재입고 처리
   
3. 질문 내용 
   안녕하세요?
   업체에서 입고되는 자재를 바코드 리더기로 입코처리하여 입고가 완료되면 DB에 저장하는 작업을 하려고 
   합니다. 스트링그리드에 버튼 그리는것 버튼 이벤트로 1개 품목을 저장히는것 까지는 잘 되는데요 2번째
   품목 부터는 루프를 돌려봐도 이벤트가 먹히질 않습니다. 아시는분 루프 돌리는 방법좀 부탁드립니다.

아래소스는 스트링그리드에 버튼을 만들고 1개항목을 저장하는 루턴입니다.(루프적용)
procedure TRSUIPT_F.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  i: Integer;
begin 
 // 입고 정리버튼을 그립니다...
  CASE Del_Exst.ItemIndex OF
   1: begin
        with TStringGrid(Sender).Canvas do
          begin
            if ARow > 0 then
              begin
                if ACol = 7 then
                  begin
                    Rect.Left := Rect.Left + 0;
                    Rect.Top  := Rect.Top  + 5;
                    Brush.Color := clBtnFace;
                    DrawFrameControl(Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH);  
                    DrawTextA(Handle,' 입고', 7, Rect, DT_VCENTER);
                  end;
              End;
          End;
      End;
  end;
end;

// 스트링그리드1 버튼 이벤트
procedure TRSUIPT_F.StringGrid1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  acol, arow,i : Integer;
begin
  i := 1;
  CASE Del_Exst.ItemIndex OF
   1: begin
        StringGrid1.MouseToCell(X, Y, acol, arow);
        if (arow = i) And (acol = 7) Then
          begin
            For i:=1 TO StringGrid1.RowCount -1 DO
  
            STRINGGRID1.CELLS[7,i]:=' [누름]';
            MessageBeep(0);
            If ApplicaTion.MessageBox(' 입고 자재를 입고정리 하시겠습니까?'+#13+#10' '+
                                      '입고정리 예(Y) 입고취소 아니오(N) 버튼 선택',
                                      '출고 정리확인',
                                       MB_Yesno+MB_IconQuesTion) <> IDYES Then
            Exit;
            
            RSUIPTS_F.RSU_INPTClick(Sender);                       //자재입고 프로그램 호출
            FRM2011_F.spAPPEND.Click;                              //추가버튼 클릭
            FRM2011_F.ME_IN_DATE.Text := ME_RSU_DATE.Text;         //입고일자
            FRM2011_F.Ed_Cust_cd.Text := ED_CUST_CD.Text;          //거래처코드
            FRM2011_F.ED_ITEM_Cd.Text := STRINGGRID1.CELLS[1,i];   //자재코드
            FRM2011_F.ED_In_QTY.Text  := STRINGGRID1.CELLS[6,i];   //입고수량
            FRM2011_F.ED_IN_MEMO.Text := '발주입고';               //입고내역
            FRM2011_F.ST_CHN_DT.Caption := ST_CHN_DT.Caption;      //변경일시
            FRM2011_F.ST_CHN_ID.Caption := ST_CHN_ID.Caption;      //변경자ID
            FRM2011_F.BtnSAVE.Click;                               //저장
            FRM2011_F.Free;                                        //메모리제거
            RSUIPTS_F.RSU_APPRClick(Sender);                       //바코드 자재입고 프로그램 원복
            INC(i);
          end;
      end;
  end;
end;