AnnUngroup example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   LEADAnn1.AnnUngroup ( LEADAnn1.AnnContainer, ANNFLAG_SELECTED + ANNFLAG_RECURSE, '' ) ;
end;