1:

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

1:

Data := Pointer(SubItems[Points]); // Punktestand zum Sortieren					

1:

lvHighscore.Items.BeginUpdate;					

1:

lvHighscore.Items.EndUpdate;					

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

            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(LbGebrauchteZeit.Caption); // und für die Ausgabe
                SubItems.Add(IntToStr(Points));
                SubItems.Add(IntToStr(Moves));
                SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
              end;
              Form2.ShowModal;					

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

Form2.lvHighscore.Items.BeginUpdate;
              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.lvHighscore.Items.EndUpdate;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TForm1.Button1Click(Sender: TObject);
  var
    Differenz: Integer;
    Zeit1, Zeit2: TDateTime;

  // Herausfinden, ob alle Karten aufgedeckt sind
  function AllCardsOpen: Boolean;
    var
      i: Integer;
  begin
    Result := FALSE; // default: noch nicht alle offen
    for i := MIN to MAX do // über alle Karten
      if (Cards[i].Button.Visible) then // Karte verdeckt?
        Exit; // ja, dann nicht weiter suchen
    Result := TRUE; // alle Karten sind offen
  end;
  
begin
  (Sender as TButton).Visible := FALSE; // Button wegnehmen
  case GameState of
    gsOpenCards0: // kein Feld in der "Warteschlange"
      begin
        Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
        GameState := gsOpenCards1; // jetzt ist ein Feld offen
      end;
    gsOpenCards1: // ein Feld ist schon offen
      begin
        Move2 := (Sender as TButton).Tag; // 2. Zug vermerken
        // Pärchen gefunden?
       ...
        end
        else begin
          GameState := gsOpenCards2;
          Moves := Moves +1; // sonst ein Zug mehr
        end;
      end;
    gsOpenCards2: // zwei (ungleiche) Felder vom Zug vorher noch offen
      begin
        Cards[Move1].Button.Visible := TRUE; // alte Felder verdecken
        Cards[Move2].Button.Visible := TRUE;
        Move1 := (Sender as TButton).Tag; // den neuen Zug vermerken
        GameState := gsOpenCards1;
      end;
  end;
end;					

1:

          Data := Pointer(Form2.lvHighscore.Items[1]); // Punktestand zum Sortieren					

1:

Data :=  Pointer(Form2.lvHighscore.Items[StrToInt(LbGebrauchteZeit.Caption)]); // Punktestand zum Sortieren					

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

Form2.lvHighscore.Items.BeginUpdate;
              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(Form2.lvHighscore.Items[StrToInt(LbGebrauchteZeit.Caption)]); // Punktestand zum Sortieren
              end;
              Form2.lvHighscore.Items.EndUpdate;
              Form2.ShowModal;					

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

case GameState of
    gsOpenCards0: // kein Feld in der "Warteschlange"
      begin
        Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
        GameState := gsOpenCards1; // jetzt ist ein Feld offen
      end;					

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

begin
  (Sender as TButton).Visible := FALSE; // Button wegnehmen
  case GameState of
    gsOpenCards0: // kein Feld in der "Warteschlange"
      begin
      if Moves := '' AND Points :=''
      then begin
         LbAnfangszeit.Caption := TimeToSTr(now)
         Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
         GameState := gsOpenCards1; // jetzt ist ein Feld offen
           end
      else begin
        Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
        GameState := gsOpenCards1; // jetzt ist ein Feld offen
      end;
      end;					

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

 end;
  GameState := gsOpenCards0; // kein Feld offen
  Moves := 0;
  Points := 0;
  LbAnfangszeit.Caption:= '';
end;					

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

begin
  (Sender as TButton).Visible := FALSE; // Button wegnehmen
  case GameState of
    gsOpenCards0: // kein Feld in der "Warteschlange"
        if LbAnfangszeit.Caption= ''
        then begin
        LbAnfangszeit.Caption := TimeToStr(now);
        Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
        GameState := gsOpenCards1; // jetzt ist ein Feld offen
        end
        else begin
        begin
        Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
        GameState := gsOpenCards1; // jetzt ist ein Feld offen
        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 4. Spalte (auf Textbasis!)
  else // sonst...
    Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data)); // vergleiche die Punkte/Zeit
end;