리스트 추가시의 잘못인지....리스트를 가져올때의 잘못인지 모르겠네요~
함 봐주세요..

..
..
..
  while m_data.DataSource.DataSet.Eof = false do
  begin
      code := m_data.DataSource.DataSet.FieldByName('mCode').AsString;  // 변수에
      kind := m_data.DataSource.DataSet.FieldByName('mKind').AsString;  //데이터를 저장한 후

      DataSource.DataSet.Next();      //데이터섿은 다음으로 이동하고,          

     new(pRec);                                   //리스트에 담을 구조체를 동적할당하여
     pRec^.code := code;
     pRec^.kind := kind;                         //구조체에 옮겨 저장한 후
     m_list.Add(pRec);                           //리스트에 추가합니다.
  end;
..
..
  for i:=0 to m_list.Count-1 do
  begin
      pRec := m_list.Items[i];
      buffer := pRec^.m_kind.GetKind;            //리스트의 값을 조사해보면
  end;                                           //처음부터 끝까지 마지막에 넣은 값만 들어있습니다.
..
..

어디가 잘못된건지 모르겠네요..
조언 부탁드립니다.