AnnGetHyperlinkParam example Delphi

//This example retrieves parameters using AnnGetHyperlinkParam.
procedure TForm1.LEADAnn1AnnChange (hObject: L_HANDLE);
var
   msgstr: string;
   nType: Integer;
   iParamCount: Integer;
   lRet: longint;
begin
   nType:= LEADAnn1.AnnGetHyperlinkType (hObject);
   if (nType = ANNLINK_ANNEVENT5) then
   begin
      msgstr:= 'Params are: ' + Chr(13);
      for iParamCount:= 0 to 4 do
      begin
         lRet:= LEADAnn1.AnnGetHyperlinkParam(hObject, iParamCount);
         msgstr:= msgstr + '   Param' + IntToStr(iParamCount + 1) + ': ' + IntToStr(lRet) + Chr(13);
      end;
   end
   else
      msgstr:= 'Invalid Type';
   ShowMessage ( msgstr ) ;
end;