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

procedure TForm2.FormCreate(Sender: TObject);
var i: integer;
begin
stringgrid1.Cells[1,0]:='Name';
stringgrid1.cells[2,0]:='Punktzahl';
for i := 1 to 10 do
  begin
    stringgrid1.Cells[0,i]:=inttostr(i)+'.';
    stringgrid1.Cells[1,i]:=BEstenliste.ReadString('Platz '+inttostr(i),'Name','kein Wert');
    stringgrid1.Cells[2,i]:=BEstenliste.ReadString('Platz '+inttostr(i),'Punktzahl','kein Wert');
  end;
end;					

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

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
  if not Fileexists(ExtractFilePath(ParamStr(0))+'Bestenliste.ini') then
  begin
    Bestenliste:=Tinifile.Create(ExtractFilePath(ParamStr(0))+'Bestenliste.ini');
    for i := 1 to 10 do
    begin
      BEstenliste.WriteString('Platz '+inttostr(i),'Name','keine Angabe');
      BEstenliste.WriteString('Platz '+inttostr(i),'Punktzahl','keine Angabe');
    end;
  end;
end;