Додаток 1.

unit UMain;

 

.........................

procedure TForm1.N4Click(Sender: TObject);

begin

Close;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Close;

end;

 

procedure TForm1.FormPaint(Sender: TObject);

var

  i, j: Integer;

begin

  with Form1.Canvas do

    for j := 0 to Form1.Height do

      for i := 0 to Form1.Width do

        Pixels[i, j] := Trunc(Random($00000095));

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Application.CreateForm(TFgener,Fgener);

Fgener.ShowModal;

end;

 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Application.CreateForm(TFModel,FModel);

FModel.ShowModal;

end;

 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Application.CreateForm(TRozr,Rozr);

Rozr.ShowModal;

end;

 

procedure TForm1.N3Click(Sender: TObject);

begin

Application.CreateForm(TDovid,Rozr);

dovid.ShowModal;

end;

 

procedure TForm1.N5Click(Sender: TObject);

begin

Abou.ShowModal;

end;