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

procedure TForm1.Button1Click(Sender: TObject);
begin
  with lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
    Caption := 'Narses'; // Name eintragen
    Data := Pointer(Random(100)); // Punktestand zum Sortieren
    SubItems.Add(IntToStr(Integer(Data))); // und für die Ausgabe
    SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
  end;
end;					

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

procedure TForm2.BtHighscoreeintragenClick(Sender: TObject);
    var
      Zeit1, Zeit2, Differenz: TDateTime;
begin
 Form1.LbEndzeit.Caption:=TimeToStr(now);
    Zeit1:= StrToTime(Form1.LbEndzeit.Caption);
    Zeit2:= StrToTime(Form1.LbAnfangszeit.Caption);
    Differenz := Zeit1 - Zeit2;
with lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
    Caption := EdName.Text; // Name eintragen
    Data := (Differenz); // Punktestand zum Sortieren
    SubItems.Add(TimeToStr(Integer(Data))); // und für die Ausgabe
    SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
  end;
end;					

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

  var
    Zeit1, Zeit2: TDateTime;
    Differenz: Integer;
begin
  Form1.LbEndzeit.Caption := TimeToStr(now);
  Zeit1 := StrToTime(Form1.LbEndzeit.Caption); // du solltest besser die Zeiten in zwei passenden Variablen aufheben,
  Zeit2 := StrToTime(Form1.LbAnfangszeit.Caption); // statt das Gehampel über Strings zu machen
  Differenz := SecondsBetween(Zeit1,Zeit2); // benötigt DateUtils in den uses
  with lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
    Caption := EdName.Text; // Name eintragen
    Data := Pointer(Differenz); // Zeit in Sekunden zum Sortieren
    SubItems.Add(IntToStr(Integer(Data))); // und für die Ausgabe
    SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
  end;
end;					

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:

unit FrmMain;

interface

uses
  Windows, {..};

type
  TMainFrm = class(TForm)
    {..}
  public
    function GetHighscoreData: THighscoreData;  //THighscoreData = record..
  end;

implementation

uses
  FrmHighscores;

{.
}

end.
/////////////////////////////////////////////
unit FrmHighscores;

interface

uses
  Windows, {..};

type
  THighscoreFrm = class(TForm)
    {..}
  end;

implementation

uses
  FrmMain;

{..}

end.					

1:

Label1.text					

1:

FrmMain.Label1.text					

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

procedure TMainFrm.ShowHighscores;
var
  aHighscoreFrm: THighscoreFrm;
begin
  aHighscoreFrm := THighScoreFrm.Create;
  try
    aHighScoreFrm.AddHighscore(StrToInt(Edit1.Text));
    aHighscoreFrm.ShowModal;
  finally
    aHighscoreFrm.Free;
  end;
end;					

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

type
  THighscoreFrm = class(TForm)
    {..}
  private
    FHighscore: Integer;
  public
    procedure AddHighscore(aHighscore: Integer);
  end;

{..}

procedure THighscoreFrm.AddHighscore(aHighscore: Integer);
begin
  //könnte auch zwischenspeichern und dann wenn das Formular gezeigt wird(OnShow)
  //den Namen o.ä. noch einlesen
  FHighscore := aHighscore;
end;					

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

procedure TForm2.BtHighscoreeintragenClick(Sender: TObject);
begin
  with 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(DateTimeToStr(Now)); // Datum eintragen
  end;
end;					

1:
2:
3:
4:

procedure TForm2.BtnExitClick(Sender: TObject);
begin
  Form1.Close;
end;					

1:
2:
3:
4:
5:

// bei Programmende ausführen
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveHighscores;
end;					

1:
2:
3:
4:

procedure TForm2.FormCreate(Sender: TObject);
begin
  LoadHighscores;
end;