AnnGetNameRestrict example for Delphi

{This sample toggles the bNameRestrict property of the annotation object hObject}
var
   bNameRestrict: Boolean;
begin
   bNameRestrict:= LEADAnn1.AnnGetNameRestrict (hObject);
   if (bNameRestrict) then
      ShowMessage ('Changing bNameRestrict property to False' )
   else
      ShowMessage ('Changing bNameRestrict property to True' );
   LEADAnn1.AnnSetNameRestrict (hObject, Not bNameRestrict, False);
end;