AnnGetHyperlinkType example for Delphi

//The following is an example of OnAnnHyperlink event code, which includes a call to AnnGetHyperlinkType.
 procedure TForm1.LEADAnn1AnnHyperlink (hObject: L_HANDLE; iParamCount,
  lParam1, lParam2, lParam3, lParam4, lParam5: Integer);
var
   msgstr: String;
   nType: Integer;

begin
   nType:= LEADAnn1.AnnGetHyperlinkType(hObject);
   if ((nType = ANNLINK_ANNEVENT5) Or (nType = ANNLINK_ANNEVENT)) then
   begin
      if (iParamCount >= 0) then
         msgstr:= IntToStr(iParamCount) + ' params are valid' + Chr(13);
      if (iParamCount >= 1) then
         msgstr:= msgstr + 'Param1: ' + IntToStr(lParam1) + Chr(13);
      if (iParamCount >= 2) then
         msgstr:= msgstr + 'Param2: ' + IntToStr(lParam2) + Chr(13);
      if (iParamCount >= 3) then
         msgstr:= msgstr + 'Param3: ' + IntToStr(lParam3) + Chr(13);
      if (iParamCount >= 4) then
         msgstr:= msgstr + 'Param4: ' + IntToStr(lParam4) + Chr(13);
        if (iParamCount = 5) then
         msgstr:= msgstr + 'Param5: ' + IntToStr(lParam5) + Chr(13);
   end
   else
      msgstr:= 'Invalid Type';
   ShowMessage ( msgstr ) ;
end;