Записи в DTADOTree

[skywoker74]

Использую DTADOTree+ADOQuery+DataSource. Код добавления записи взял из примера который идет вместе с компонентом dbtreeview. Код такой

var
  ParentValue: Variant;
begin
  with DataModule1.ADOQDepartment, DTADOTree1.DBTreeFields do
  begin
    ParentValue := FieldValues[ParentFieldName];
    Append;
    FieldValues[ParentFieldName] := ParentValue;
    Post;
    Edit;
    FieldValues[ListFieldName] := 'Node ' + IntToStr(FieldByName(KeyFieldName).AsInteger);
    Post;
  end;

Добавляемые таким способом записи почемуто не отображаются сразу в DTADOTree, а только после перезапуска приложения (хотелось бы чтобы сразу). Подскажите как решить проблему?