OnAnnUnlocked example for Delphi

The following is an example of an OnAnnUnlocked event.

procedure TForm1.LEADAnn1AnnUnlocked (hObject: L_HANDLE);
begin
   ShowMessage ('AnnObject: ' + IntToStr (hObject) + ' was unlocked!');
end;