1. Задаваш на PageControl-a Style = tsFlatButtons (за да му махнеш рамката)
2. За всеки таб задаваш tabVisible := False;
За да обхождаш табовете в Design Time ползваш pop-up menu и Next Page (или просто скриваш табовете преди да reliesenesh версията, обаче ако правиш така - трябва да съобразиш, че като скриеш табовете, за всяка страница ще ти остане празно място от горе. Решение: правиш му TabPosition := tpBottom (тогава пък не можеш да ползваш tsFlatButtons, но не е болка за умиране...) Имам опит с тоя PageControl :)))

-------------
Special killer double trouble triple extra nicotine monster!