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

procedure TForm3.Label24Click(Sender: TObject);
var ini:TiniFile; j:integer;  score:array [1..10]of string;
begin
ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'Highscore.ini');

for j := 1 to 10do
   score[j] := ini.ReadString('Highscore','Score'+inttostr(j) ,'');
   if (Endscore >= StrtoInt(Score[j])) and(Endscore < StrToInt(Score[j-1])) then begin
     Score[j] := INttostr(Endscore);  ini.writeString('Highscore','Score'+inttostr(j) ,Score[j]);
     Readscore;
   end;
end;                    

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

procedure TForm3.Label24Click(Sender: TObject);
var
  j: integer;
  ini: TiniFile;
  score: array[1..10] of string;
begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Highscore.ini');

  for j := 1 to 10 do
    score[j] := ini.ReadString('Highscore', 'Score' + IntToStr(j), '');

  if (Endscore >= StrtoInt(Score[j])) and (Endscore < StrToInt(Score[j-1])) then
  begin
    Score[j] := IntToStr(Endscore);
    ini.writeString('Highscore', 'Score' + IntToStr(j), Score[j]);
    Readscore;
  end;
end;                    

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

ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Highscore.ini');
try
  ...
finally
  ini.Free;
end;