if length(pctrlWB.ActivePage.Caption)>10 then pctrlWB.ActivePage.Caption:=copy(pctrlWB.ActivePage.Caption,1,10)+'...'