if (typeName = 'MUX') and (i = 0) then begin
    XscsComponent.//
    AddProp('VInLabel' + ipp.ToString, 'K').//
    AddText(4, -10 * i, 'K', 'VInLabel' + ipp.ToString, taLeftJustify,
    (cBoxInLabelBase + ipp).ToString); //
end else begin
    XscsComponent.//
    AddProp('VInLabel' + ipp.ToString, 'IN' + (ipp - 1).ToString ).//
    AddText(4, -10 * i, 'IN' + (ipp - 1).ToString, 'VInLabel' + ipp.ToString, taLeftJustify,
    (cBoxInLabelBase + ipp).ToString);
end;