AnnSetUnit example for Delphi

procedure TForm1.TestAnnSetUnit ( hCrossProd: HANNOBJECT );
var
   uUnit: L_UINT;
   uPrecision: L_UINT;
   strUnitAbbrev: String;
begin
   LEADAnn1.AnnGetUnit ( hCrossProd, strUnitAbbrev, uUnit, uPrecision );
   uUnit:= (uUnit + 1) Mod 10;
   LEADAnn1.AnnSetUnit ( hCrossProd, uUnit + ANNUNIT_DEF_ABBR, '', 2, False );
end;