unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    TheScore : textfile;
  end;

var
  Form3: TForm3;

implementation

type
                HiScores = record
                Name       : string[10];  //first field
                Score     : string[3];
end;

{$R *.dfm}
var
ScoreArray : array[1..3] of HiScores;
ScoreFile   : file of HiScores;
NewData : HiScores;

procedure recordHiScore;
var
  temp : byte;
  Temptxt : string;
  ScoreAdded : Boolean;
begin
ScoreAdded := False;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
assignfile(ScoreFile, 'Hscores.dat');
if (fileexists('Hscores.dat')= false)then
rewrite(ScoreFile)
else;
end;

end.