Delphi - contraes (cerrar) por codigo los nodos cxGrid (+)

contraer por codigo cxGrid (+) los nodos
hola que tal

alguien como sabe

para cerrar los nodos abiertos en un cxGrid

ya ven que al haserle clic al (+) se expande, ahora quiero sabes si ahi una forma de contraerlo por medio de codigo, que se cierre el nodo.

alguien sabe como?

saludos

en la pagina del componete encontre este codigo servira?

[code]

procedure ExpandViewGroups(AView: TcxGridTableView; ALevel: Integer);
var
I: Integer;
begin
AView.BeginUpdate;
try
AView.DataController.Groups.FullExpand;
for I := AView.DataController.RowCount - 1 downto 0 do
if AView.DataController.GetRowInfo(I).Level > ALevel then
AView.DataController.Groups.ChangeExpanding(I, False, True);
finally
AView.EndUpdate;
end;
end;

[/code]

saludos

gracias

no le entendo bien al codigo