Fórum Ajuda com Treeview - olhem o codigo por favor!!! #222289

Tenho uma tabela na qual a estrutura é o seguinte: codigo, nome e os dados sao:

codigo Nome
1.202 Materiais
1.202.01 Porca
1.202.02 Parafuso
1.202.03 Prego
1.202.04 Martelo
1.203 Motores
1.203.01 Carro
1.203.02 Moto
1.203.03 Tratos

como faco para colocar estes dados corretamente no treeview?
estou usando o codigo abaixo mas no treeview esta aparecendo a tabela em sequencia...gostaria que aparecesse os dados 1.XXX e logo abaixo os 1.XXX.XX

eis o codigo:

*** p/ motar a lista

function TForm1.GetFieldList: TStringList;
begin
FieldList.clear;
FieldList.add(tbl_grupo.fieldbyname(´codccusto´).asstring+´ - ´+tbl_grupo.fieldbyname(´nome´).asstring) ;
FieldList.add(tbl_grupo.fieldbyname(´nome´).asstring);
Result := FieldList;
end;

*** quanto eu crio o from


procedure TForm1.FormCreate(Sender: TObject);
begin
FieldList := TStringList.create;

TreeView1.items.BeginUpdate;

tbl_grupo.first;
while not tbl_grupo.eof do
begin
TreeAddItem(TreeView1, GetFieldList, tbl_grupo.getBookmark, false);
tbl_grupo.next;
end;

TreeView1.Alphasort;
TreeView1.items.Endupdate;

//make first record selected:
// TreeView1.items[2].selected := true;
end;