AnnIsFixedRect example for Delphi

Procedure TForm1.ExampleExampleAnnIsFixedRect ( hObject: HANNOBJECT; nLeft: L_INT; nTop: L_INT; nRight: L_INT; nBottom: L_INT);
var
   bFixedInRect: Boolean;
begin
   LEADAnn1.AnnFlags:= ANNFLAG_RECURSE;
   bFixedInRect:= LEADAnn1.AnnIsFixedRect(hObject, nLeft,  nTop, nRight , nBottom);
   if(bFixedInRect = true) then
   begin
      ShowMessage('There are Fixed annotations visible.');
   end
   else
   begin
      ShowMessage('There are No Fixed annotations visible.');
   end;
end;