AnnSetHyperlinkMsg example for Delphi

//The following is an example of OnAnnHyperlinkMenu event code, which includes a call to AnnSetHyperlinkMsg.
procedure TForm1.LEADAnn1AnnHyperlinkMenu (phObjects: L_PHANDLE;
  iCount: Integer);
var
   x: Integer;
begin
   //set HyperLink to type ANNLINK_ANNEVENT5
   //and set the 5 params to some values.
   for x := 0 to iCount - 1 do
      LEADAnn1.AnnSetHyperlinkMsg (LEADAnn1.AnnGetItemHandle (phObjects, x), ANNLINK_ANNEVENT5, 5, 4, 3, 2, 1 ) ;
end;