AnnFixed example for Delphi

Procedure TForm1.ExampleAnnFixed ( hObject: HANNOBJECT );
var
   bFixed: Boolean;
begin
   bFixed:= LEADAnn1.AnnFixed[hObject];
   LEADAnn1.AnnEnableAdjust:= true;
   bFixed:= Not bFixed;
   LEADAnn1.AnnFixed[hObject]:= bFixed;
   if (bFixed = true) then
   begin
      ShowMessage('Fixed');
   end
   else
   begin
      ShowMessage('Not Fixed');
   end;
end;