Понадобилось сделать в MemtableEh в режиме TreeList
Развернуть и Свернуть с помощью клавиши Left и Right
Сделал вот так
но почемуто медленно работает..

procedure TGoodsFrm.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 case Key of
   VK_LEFT:      
      if (DM.MTHElementGr.TreeNode.NodeExpanded)
      then
         DM.MTHElementGr.TreeNode.NodeExpanded:=false;
     else
         dm.MTHElementGr.GotoRec(DM.MTHElementGr.TreeNode.NodeParent.Rec);
   VK_RIGHT:    
      DM.MTHElementGr.TreeNodeExpanded:=true;
 end;
end;

Как сделать что бы работал быстрее...