Mach aus dem Integer ein Byte... dann hast du`s wenigstens nur bis 255. Ansonsten versuch mal in deinem TabControl1Chance Event folgendes:

Code: 
procedure TForm1.TabControl1Change(Sende  r: TObject);
begin
 panel1.Hide;
 panel2.Hide;
 panel3.Hide;
 case TabControl1.TabIndex of
  1: Panel1.Show;
  2: Panel2.Show;
  3: Panle3.Show;
 end;
end;
Das man 2 else hinter ein if setzen kann währ mir neu... ausserdem...
Wenn du die PageControl Komponente anstatt der Tabkontroll verwendest ersparst du dir das abfragen und Zeigen/Verstecken von Panels. Die macht das automatisch.