AnnSetBackColor example for Delphi

procedure TForm1.TestAnnBackColor ( hAnnObject: HANNOBJECT );
var
   crColor: COLORREF; { Object background color }
begin
   { Invert the background color }
   LEADAnn1.AnnGetBackColor ( hAnnObject, crColor );
   LEADAnn1.AnnSetBackColor ( hAnnObject, crColor xor $00FFFFFF, False );
end;