TTabControl - angeklickten Reiter erkennen

[t.roller]

Delphi-Quellcode:

procedure TForm1.TabControl1Change(Sender: TObject);
var index : integer;
begin
Caption:= TabControl1.Tabs[TabControl1.TabIndex];
end;