Реферат: Моделирование игровых программ

end;

procedure TForm1.N3Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute

then fname:=OpenPictureDialog1.FileName;

NewGame;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form3.RichEdit1.Lines.LoadFromFile('Правила.rtf');

Form3.ShowModal;

end;

procedure TForm1.N8Click(Sender: TObject);

var

i,j:integer;

begin

H:=4;W:=4;

Formmas;

NewGame;

N2Click(Sender);

end;

procedure TForm1.N9Click(Sender: TObject);

var

i,j:integer;

begin

h:=5;w:=5;

Formmas;

NewGame;

N2Click(Sender);