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