AnnSetText example for Delphi

procedure TForm1.TestAnnSetText ( hAnnObject: HANNOBJECT );
var
   strText: String; { The object’s text }
begin
   { Get the current text }
   LEADAnn1.AnnGetText ( hAnnObject, strText );
   { Add " - New" to the end of the current text }
   strText:= strText + ' - New';
   LEADAnn1.AnnSetText ( hAnnObject, strText, False );
end;