AnnTicMarkLength example for Delphi

Procedure TForm1.ExampleAnnTicMarkLength ( hObject: HANNOBJECT );
var
   nObjectType: L_INT;
   Length: L_DOUBLE;
begin
   nObjectType:= LEADAnn1.AnnGetType(hObject);

   if ( (nObjectType <> ANNOBJECT_POLYRULER) And
        (nObjectType <> ANNOBJECT_RULER) ) Then
   begin
       ShowMessage('This object is not a POLYRULER or a RULER Object');
   end;

   Length:= LEADAnn1.AnnTicMarkLength[hObject];

   Length:= Length + 10;

   LEADAnn1.AnnTicMarkLength[hObject]:= Length;
end;