Source position: vartags.pas line 79
procedure SetTags(
ti: pTagItem;
item: LongInt;
data: LongInt
);