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 gebrauchte Zeit bei den Elementen gleich ist, dann...
    Compare := CompareText(Item1.SubItems[3],Item2.SubItems[3]) // vergleiche die 4. Spalte (auf Textbasis!)
  else // wenn die gebrauchte Zeit nicht gleich ist
    Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data)); // vergleiche die Punkte/Zeit
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 gebrauchte Zeit bei den Elementen gleich ist, dann...
    Compare := CompareText(Item2.SubItems[2],Item1.SubItems[2]) // vergleiche die 4. Spalte (auf Textbasis!)
  else // wenn die gebrauchte Zeit nicht gleich ist
    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:

else begin
        if LbSpieler.Caption= 'Spieler 1'
        then begin
          GameState := gsOpenCards2;
          LbSpieler.Caption:= 'Spieler 2';
          Moves := Moves +1; // sonst ein Zug mehr
          ShowMessage('Spieler 2 ist an der Reihe.');
        end
        else begin
          GameState := gsOpenCards2;
          Moves := Moves +1; // sonst ein Zug mehr
          ShowMessage('Spieler 1 ist an der Reihe.');
          LbSpieler.Caption:= 'Spieler 1'
        end;
        end;					

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

           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
                Data :=  Pointer(Moves); // Gebrauchte Zeit zum Sortieren
              end;
              Form2.lvHighscore.Items.EndUpdate;
              Form2.ShowModal; //Zeige die Highscoreliste
            end					

1:

                Data :=  Pointer(Moves); // Gebrauchte Zeit zum Sortieren					

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

procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  if (Item2.SubItems[1] = Item1.SubItems[1]) then // wenn die gebrauchte Zeit bei den Elementen gleich ist, dann...
    Compare := CompareText(Item1.SubItems[2],Item2.SubItems[2]) // vergleiche die 4. Spalte (auf Textbasis!)
  else // wenn die gebrauchte Zeit nicht gleich ist
    Compare := CompareValue(Integer(Item2.SubItems[1]),Integer(Item1.SubItems[1])); // vergleiche die Punkte/Zeit
end;					

1:

Compare := CompareValue(Integer(Item2.SubItems[1]),Integer(Item1.SubItems[1])); // vergleiche die Punkte/Zeit (*2)					

1:

  Data :=  Pointer(Moves); // Gebrauchte Zeit zum Sortieren (*3)					

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

  Image1.Visible:= true;
  Image2.Visible:= true;
  Image3.Visible:= true;
  Image4.Visible:= true;
  Image5.Visible:= true;
  Image6.Visible:= true;
  Image7.Visible:= true;
  Image8.Visible:= true;
  Image9.Visible:= true;
  Image10.Visible:= true;
  Image11.Visible:= true;
  Image12.Visible:= true;
  Image13.Visible:= true;
  Image14.Visible:= true;
  Image15.Visible:= true;
  Image16.Visible:= true;
  Image17.Visible:= true;
  Image18.Visible:= true;					

1:
2:

  for i := MIN to MAX do begin
    Cards[i].Button.Visible := TRUE; // Button anzeigen