So, nu müsste eigentlich alles funktionieren, aber wie zu erwarten, tut es das nicht. Ich will das Tool testweise starten, aber jetzt hängt er sich am letzten "end." auf und sagt folgendes:
"Bezeichner redefiniert: 'Finalization'". Was zum Teufel heißt das? Ich hau hier mal den Code der Unit1 rein:
Code: 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Project1_Typen;

type
  TForm1 = class(TForm)
    TabControl1: TTabControl;
    Panel1: TPanel;
    levorname: TLabeledEdit;
    lenachname: TLabeledEdit;
    btnDSspeichern: TButton;
    btnNeuerDS: TButton;
    btnNaechsterDS: TButton;
    btnVorherigerDS: TButton;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    leWF2: TLabeledEdit;
    leWF3: TLabeledEdit;
    leWF4: TLabeledEdit;
    leWF5: TLabeledEdit;
    leWF6: TLabeledEdit;
    leWF7: TLabeledEdit;
    leWF1: TLabeledEdit;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    leDoppel1: TLabeledEdit;
    leDoppel2: TLabeledEdit;
    leFach4: TLabeledEdit;
    leFach5: TLabeledEdit;
    leFach3: TLabeledEdit;
    procedure TabControl1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    pupils:array of TPerson;
    end;

var
  Form1: TForm1;

end
implementation

{$R *.dfm}

procedure TForm1.TabControl1Change(Sender: TObject);
begin
if tabcontrol1.TabIndex=0 then begin
 panel1.show;
 panel2.Hide;
 panel3.Hide;
 end
else if tabcontrol1.TabIndex=1 then begin
 panel2.Show;
 panel1.hide;
 panel3.Hide;
end
else if tabcontrol1.tabindex=2 then begin
 panel3.Show;
 panel2.Hide;
 panel1.Hide;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
tabcontrol1.TabIndex:=0;
panel2.Hide;
panel1.show;
setlength(pupils,1);
end;

end.
Und hier mal den der Unit Project1_Typen:
Code: 
unit Project1_Typen;

interface

type
TPerson = record
     vorname,name,dfach1,dfach2,fach3,fach4,fach5:string[30];
     punkte:array[1..12,1..4] of integer;
end;
implementation



end.
Noch ne Frage: Kann ich eigentlich beim array punkte den integer auf 2 Stellen beschränken? Zwecks Speicherreduzierung.