AnnTextExpandTokens example for Delphi

Procedure TForm1.ExampleAnnTextExpandTokens ( hObject: HANNOBJECT );
var
   nObjectType: L_INT;
   bTextExpandToken: Boolean;
begin
   nObjectType:= LEADAnn1.AnnGetType(hObject);

   if (nObjectType <> ANNOBJECT_TEXT) Then
   begin
      ShowMessage( 'This object is not a Text Object');
   end;

   bTextExpandToken:= LEADAnn1.AnnTextExpandTokens[hObject];
   bTextExpandToken:= Not bTextExpandToken;
   LEADAnn1.AnnTextExpandTokens[hObject]:= bTextExpandToken;

   if (bTextExpandToken = true) Then
   begin
      ShowMessage( 'Text Expands Token');
   end
   else
   begin
      ShowMessage( 'Text Does Not Expand Token');
   end;
end;