음냐...

이렇게 하세요...

while not table1.eof do
begin
  TreeView1.items.addchild(node1, table1['com']);
  table1.next;
end;

아이고, 그리고 while 전에

table1을 처음으로 하는 table1.first를 넣어주시고

그 다음에 node1 := TreeView1.Items.Add(nil, '제약회사');

를 넣어주세요.

새벽이라 정신없네요...

그럼