1:

if EdName.text= ''					

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

      with Form2.lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
        Caption := EdName.Text; // Name eintragen
        SubItems.Add(Form1.LbGebrauchteZeit.Caption); // und für die Ausgabe
        SubItems.Add(IntToStr(Points));
        SubItems.Add(IntToStr(Moves));
        SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
      end;					

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

      // geladene Datei auswerten und in das ListView übertragen
      for i := 0 to Datei.Count-1 do begin // über alle Zeilen der Datei
        Zeile.CommaText := Datei.Strings[i]; // Zeile zerlegen
        if (Zeile.Count = 5) then // Name, Punkte, Datum müssen da sein
          with lvHighscore.Items.Add do begin // neuen Eintrag anlegen
            Caption := Zeile.Strings[0]; // Name eintragen
            Data := Pointer(StrToIntDef(Zeile.Strings[1],0)); // Punktestand zum Sortieren
            SubItems.Add(IntToStr(Integer(Data))); // und für die Ausgabe
            SubItems.Add(Zeile.Strings[2]); // Datum
          end;					

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

      // geladene Datei auswerten und in das ListView übertragen
      for i := 0 to Datei.Count-1 do begin // über alle Zeilen der Datei
        Zeile.CommaText := Datei.Strings[i]; // Zeile zerlegen
        if (Zeile.Count = 5) then // Name, Punkte, Datum müssen da sein
          with lvHighscore.Items.Add do begin // neuen Eintrag anlegen
            Caption := Zeile.Strings[0]; // Name eintragen
            Data := Pointer(StrToIntDef(Zeile.Strings[1],0)); // Punktestand zum Sortieren
            SubItems.Add(IntToStr(Integer(Data))); // und für die Ausgabe
            SubItems.Add(Zeile.Strings[2]); // Datum
            SubItems.Add(Zeile.Strings[3]);
            SubItems.Add(Zeile.Strings[4]);
          end;					

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

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data));
end;					

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

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data));
  Compare := CompareValue(Integer(Item1.Zeile.Strings[3]),Integer(Item2.Zeile.Strings[3]));
  Compare := CompareValue(Integer(Item1.Zeile.Strings[4]),Integer(Item2.Zeile.Strings[4]));
end;					

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

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  if Item1.Data = Item2.Data
  then Compare := CompareText(Item1.SubItems[3],Item2.SubItems[3])
  else
  begin Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data));
  end;
end;					

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

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  if (Item1.Data = Item2.Data) then // wenn die Punkte/Zeit bei den Elementen gleich sind, dann...
    Compare := CompareText(Item1.SubItems[3],Item2.SubItems[3]) // vergleiche die 5. Spalte (auf Textbasis!)
  else // sonst...
    Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data)); // vergleiche die Punkte/Zeit
end;					

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

      // geladene Datei auswerten und in das ListView übertragen
      lvHighscore.Items.BeginUpdate;
      for i := 0 to Datei.Count-1 do begin // über alle Zeilen der Datei
        Zeile.CommaText := Datei.Strings[i]; // Zeile zerlegen
        if (Zeile.Count = 5) then // Name, Punkte, Datum müssen da sein
          with lvHighscore.Items.Add do begin // neuen Eintrag anlegen
            Caption := Zeile.Strings[0]; // Name eintragen
            Data := Pointer(StrToIntDef(Zeile.Strings[1],0)); // Punktestand zum Sortieren
            SubItems.Add(IntToStr(Integer(Data))); // und für die Ausgabe
            SubItems.Add(Zeile.Strings[2]); // Datum
            SubItems.Add(Zeile.Strings[3]);
            SubItems.Add(Zeile.Strings[4]);
          end;
      end;
      lvHighscore.Items.EndUpdate;
    finally					

1:

Data := Pointer(StrToIntDef(Zeile.Strings[1],0)); // Punktestand zum Sortieren					

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

if (EdName.Text = '') then // Kein Name da?
              EdName.Text := InputBox('Bitte geben Sie einen Namen ein.','Ihr Name:','');
            if (EdName.Text <> '') then begin // nur wenn ein Name da ist...
              ShowMessage('Herzlichen Glückwunsch Sie haben gewonnen!'#13#10#13#10+
                          'Benötigte Zeit in Sekunden: '+LbGebrauchteZeit.Caption+#13#10#13#10+
                          'Sie haben '+FloatToStr(FMoves)+' Fehlversuche gehabt.');
              with Form2.lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
                Caption := EdName.Text; // Name eintragen
                SubItems.Add(Form1.LbGebrauchteZeit.Caption); // und für die Ausgabe
                SubItems.Add(IntToStr(Points));
                SubItems.Add(IntToStr(Moves));
                SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
              end;
              Form2.ShowModal;
            end
            else
              ShowMessage('Kein Name, kein Highscore!');
          end;					

1:
2:

              SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
                Data := Pointer(StrToInt(SubItems.Add[Points])); // Punktestand zum Sortieren