TreeView.Items.BeginUpdate;
try
with TreeView.Items.AddObject( nil, FieldByName( 'FaceName' ).AsString, Pointer( FieldByName( 'FaceID' ).AsInteger ) ) do
begin
ImageIndex := FieldByName( 'ImageIndex' ).Value;
SelectedIndex := FieldByName( 'SelectedIndex' ).Value;
end;
finally
TreeView.Items.EndUpdate;
end;

TreeView.Items.BeginUpdate;
try
with TreeView.Items.AddChildObject( GroupsNode, ClientDataSet.FieldByName( 'FaceName' ).AsString, Pointer( ClientDataSet.FieldByName( 'FaceID' ).AsInteger ) ) do
begin
ImageIndex := ClientDataSet.FieldByName( 'ImageIndex' ).AsInteger;
SelectedIndex := ClientDataSet.FieldByName( 'SelectedIndex' ).AsInteger;
end;
finally
TreeView.Items.EndUpdate;
end;

Дык убери хрень по поводу картинок и усе

to pkarklin
А кто мешает засунуть в свойство Data весь класс целиком?

to pkarklin
Стоп, стоп, стоп.
Я давно мучаюсь вопросом типа:
есть DataSet, у него есть FieldValues[..]
А как их усе засунуть в Data TreeView?
Что нибудь типа:
type
TMyClass = class( TObject );
public
construcrir Create;
destrustor Destroy;
property Value: Variant read FValue write SetValue;
end;

procedure TForm.BtnClick( .. )
var
MyClass: TMyClass;
FieldsNames : TStringList;
FieldsList: String;
i: Integer;
begin
FieldsNames := TStringList.Create;
DataSet.GetFieldNames(FieldsNames);
FieldsList := FieldsNames.CommaText;
FieldsNames.Free;
for i := 0 to Length(FieldsList) do if FieldsList = ',' then FieldsList := ';';
DataSet.First;
while not DataSet.Eof do
begin
MyClass := TMyClass.Create;
MyClass.Value := DataSet.FieldValues[FieldsList];
TreeView.Items.AddObject( nil, DataSet.FieldByName( 'FaceName' ).AsString, MyClass) ;
MyClass.Free;
DataSet.Next;
end;
end;

Так выйдет?