1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

type

 Teintrag=record
     name:string[20];
     punkte:integer;
    end;

 Tliste=Array[1..9] of TEintrag;

...

var
 Form1:Tform1;
 liste:Tliste;
 datei:file of Tliste;
implementation
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure speichern(dateiname:string);
begin
  assignfile(datei, dateiname);
  rewrite(datei);
  write(datei,liste);
  closefile(datei);
end;

procedure oeffnen(dateiname:string);
begin
  assignfile(datei, dateiname);
  reset(datei);
  read(datei,liste);
  closefile(datei);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function GenerateUniqueFileName(FileName: String): String;
var count: integer;
begin
  if not FileExists(FileName) then
  begin
    result := FileName;
    exit;
  end;
  count:=1;
  while FileExists(ChangeFileExt(FileName, '')+'-'+IntToStr(count)+
  ExtractFileExt(FileName)) do
    Inc(Count);
  result := ChangeFileExt(FileName,'')+'-'+IntToStr(count)+ExtractFileExt(FileName);
end;					

1:
2:
3:
4:
5:
6:
7:

type THighscore = record
       Name:String[5];
       Anzahl:byte;
       Tzime:string[6];
     end;

  TMindMasterForm = class(TForm)					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  MindMasterForm: TMindMasterForm;
  Highscore: array[1..11] of THighscore;

implementation

uses Unit1;

{$R *.dfm}					

1:
2:
3:
4:
5:

procedure TMindMasterForm.FormCreate(Sender: TObject);
var i,zufall: integer;
begin
 highscore[1].Name:='Bernd das Brot';
end;					

1:
2:
3:
4:
5:

THighscoreArray = array[1..11] of THighscore;

{und dann:}

Highscore: THighscoreArray;