Code:
procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
begin
if TabSet1.TabIndex = 0 then
Wieso prüfst du TabSet1.TabIndex??? Im Parameter NewTab bekommst du doch die id des Tabs, welchen du öffnen willst... Und der ist ja noch nicht geändert worden an der Stelle. Dem nach wäre in TabSet1.TabIndex "aktuell" ein falscher Wert...
Also:
Code:
procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
begin
if NewTab = 0 then