아래처럼 한반의 수강과목별 점수리스트를 만들려고 하는데요.
문제는 이 리스트뷰의 과목컬럼이 선택하는 반에 따라 과목의 수나 과목이 달라질수있다는 겁니다.

------------------------------------------------
  학년  반  이름 평균 영어 국어 수학 ....
-------------------------------------------------
1학년  A 홍길동 55   60


그래서 그 해당하는 과목의 컬럼은 아래처럼 증가시켜놓고
For i := 1 to cnt do
begin
   ListView1.Columns.Add;
   ListView1.Columns[5+i].width := 65;
   ListView1.Columns[5+i].caption:query.FieldByname('gamok').AsString;
   Query.Next;
  End;

이제 그 아이템에 데이타를 추가시키려고 하니

        ListItem := ListView_jungamok.Items.Add;
       ListItem.SubItems.Add(Query.Fieldbyname('hakyun').AsString);
        ListItem.SubItems.Add(Query.Fieldbyname('ban').AsString );
        ListItem.SubItems.Add(Query.FieldByname('name').AsString);
        ListItem.SubItems.Add(Query.FieldByname('jumsu').AsString);

//--이부분이 아이템만 증가할 뿐 원하는 컬럼에 데이타가 들어가지 않습니다.
        For j := 1 to gamok_cnt do
          if ListView1.columns[5 + j].caption = Query['gamok'] Then
            ListItem.SubItems.Add(Query.Fieldbyname('jumsu').AsString)

원하는 곳에만 해당과목의 데이타가 들어가고 다시 루프를 돌아 다시 해당과목의 컬럼과 똑같은 과목이 나오면 원하는 필드에 데이타가 들어갈수 있어야합니다. 이틀째 방법을 못찾고 있습니다. 흑흑
고수님들의 많은 지도 편달 바랍니다.