OnAnnChange Event example for Delphi

//This example tests the OnAnnChange event.
procedure TForm1.LEADAnn1AnnChange(hObject: L_HANDLE);
var
   Msg: String;
begin
Msg:= ' This is a change for the button tagged ' + IntToStr(LEADAnn1.AnnGetTag(hObject));
   ShowMessage ( Msg ) ;
end;