что-то мне не нравиться вот эта строчка :
Код:
for i:=0 to pagecontrol.pagecount -1 do
if pagecontrol.pages [i].caption <> s then
т.е. если заголовок не равен нику то мы сразу же создаем новую вкладку?
Это неправильно! Надо что-нить такое:
Код:
for i:=0 to pagecontrol.pagecount -1 do
if pagecontrol.pages [i].caption = s then num:=num+1;
if num=0 then ....
num переменная которая хранит кол. вкладок с именем s , если таких нету то создаем ее