Add files via upload

HIGHSCORES.dfm

@@ -0,0 +1,40 @@
+object frmScores: TfrmScores
+  Left = 445
+  Top = 479
+  BorderStyle = bsDialog
+  Caption = 'High Scores'
+  ClientHeight = 277
+  ClientWidth = 405
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -13
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Scaled = False
+  OnShow = FormShow
+  PixelsPerInch = 120
+  TextHeight = 16
+  object strngrdHS: TStringGrid
+    Left = 0
+    Top = 0
+    Width = 405
+    Height = 277
+    ColCount = 4
+    RowCount = 11
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clNavy
+    Font.Height = -18
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    ParentFont = False
+    ScrollBars = ssNone
+    TabOrder = 0
+    ColWidths = (
+      34
+      206
+      80
+      79)
+  end
+end

HIGHSCORES.pas

@@ -0,0 +1,43 @@
+unit HIGHSCORES;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, Grids, Mine;
+
+type
+  TfrmScores = class(TForm)
+    strngrdHS: TStringGrid;
+    procedure FormShow(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmScores: TfrmScores;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfrmScores.FormShow(Sender: TObject);
+var
+  I: Integer;
+begin
+  strngrdHS.Cells[1, 0] := 'Name';
+  strngrdHS.Cells[2, 0] := 'Mines';
+  strngrdHS.Cells[3, 0] := 'Time';
+  for I := 1 to 10 do
+  begin
+    strngrdHS.Cells[0, I] := IntToStr(I);
+    strngrdHS.Cells[1, I] := frmMine.HSname[I];
+    strngrdHS.Cells[2, I] := IntToStr(frmMine.HSmines[I]);
+    strngrdHS.Cells[3, I] := IntToStr(frmMine.HStime[I]);
+  end;
+end;
+
+end.
+