NewGame.pas is the form that the users use to select a new game type.

 

//////////////////////////////////////////////////////////////////
// FormClose - Set global GameMode
//////////////////////////////////////////////////////////////////

procedure FormClose(Sender: TObject; var Action: TCloseAction);

//////////////////////////////////////////////////////////////////
// Button2Click - Cancel pressed.
//////////////////////////////////////////////////////////////////

procedure Button2Click(Sender: TObject);

//////////////////////////////////////////////////////////////////
// Button1Click - OK pressed
//////////////////////////////////////////////////////////////////

procedure Button1Click(Sender: TObject);