PageControl

[Privateer3000]

die Projekt.exe startet nicht...verursacht einen Fehler

hab jetztmal was anderes Probiert:

Code:

case Pages[i].Tabindex of 
          0 : 
            begin
              Caption :='Einleitung';
              OnShow := PageControl1Change;
              Tag := 0;
            end;

//sowie auch das procedure:

procedure TForm5.PageControl1Change(Sender: TObject);
begin
  if Sender is TTabsheet then
    case TTabsheet(Sender).Tag of
      0 :  ShowMessage('Jawoll');
      1 : ShowMessage('jawoll1');
    end;
end;

Selber Effekt...nichts passiert
Habe ich vielleicht schon bei der Erzeugung des Pagecontrol einen Fehler gemacht?
Irgendwie habe ich das Gefühl das ICH und mein PROGRAMM nicht des selbe Control meine