OnAnnLocked example for Delphi

//The following is an example of an OnAnnLocked event.

procedure TForm1.LEADAnn1AnnLocked(hObject: L_HANDLE);

var
   Msg: String;
begin
   Msg:= 'AnnObject: ' + IntToStr(hObject) + ' was locked!';
   ShowMessage ( Msg );
end;