TREEVIEW에 나타낼 각TREENODE의 ITEM별 POINTER로
선언하시어 각 노드별 해당 내용을 뿌려주시면 가능합니다.

type // 메인 이벤트
aRec = ^aRec;
aRec = record
  LV:string;//레벨
  CD1: string; // 자신코드
  CD2: string; // 부모코드
  NM: string; // 이름
end;

선언
var
  Aptr: pARec;  // 이벤트 포인터 설정

    with qryA do
    begin
      Close;
      ParamByName('a').AsString := ceA.Text; // 입력받은 코드로 조회
      Open;
      first;
      for iLOOP := 1 to qryA.RecordCount do // 건수가 있다면
      begin
        New(Aptr); // 메인이벤트 신규포인트 선언하고...
        Temp_ITEM11 := qryAcd.AsString;
        entPtr^.CD := Temp_ITEM11; // 조회된 코드를 대입
        // treeview에 해당항목 추가
        // root만 AddObject를 사용하고 하위는 AddChildObject를 사용한다
        A_Node := tvList.Items.AddObject(nil, Temp_ITEM12, Aptr);
        A_Node.ImageIndex := 0;    // 이미지리스트)의 0번째 image
        A_Node.SelectedIndex := 0; //
        Next;
      end;
    end;