begin

  Button2.Enabled:=true;

end;

// Підпрограма кнопки "Прийнято!"

procedure TForm1.Button2Click(Sender: TObject);

var i: integer;

begin

  if Edit4.Text=' ' then

    begin

      ShowMessage('Bи не ввели им''я файла!'+#13+'Повторіть введення!');

      Exit;

    end;

  namefile:=Edit4.Text;//Введення імені файла

  AssignFile(f,namefile); //Зв'язок файлової змінної з фізичним файлом

  if d=1

   then rewrite(f) //Створення файлу

   else

    begin //Відкриття файлу

      {$I-}

      reset(f);

      {$I+}

      if IOResult<>0 then

        begin

          ShowMessage('Такого файлу не існує!'+#13+ 'Повторіть введення');

          Edit4.Clear; Edit4.SetFocus; exit;

        end;

    end;

  CloseFile(f); //Закрити файл

  {Активізація компонентів на закладках}

  for i:=0 to ComponentCount-1 do

    begin

      //Всі мітки видимі

      if components[i] is TLabel then (components[i] as TLabel).Visible:=true;

      //Всі компоненти Edit видимі і активізовані

      if components[i] is TEdit then (components[i] as TEdit).Visible:=true;

    end;

  {Закладка ВВЕДЕННЯ ДАНИХ}

  Edit4.Clear; Edit4.Hide;//Edit4 очищений і прихований

  Label10.Hide; Button2.Hide;//Компоненти приховані

  ComboBox1.Visible:=true;

  ComboBox2.Visible:=true;

  ComboBox2.Enabled:=false;

  Edit1.Visible:=true;

  Edit1.Enabled:=false;

  Edit2.Enabled:=false; //Компоненти неактивізовані

  Edit3.Enabled:=false;

  Button1.Visible:=true; //Кнопка видима

  Button1.Enabled:=false; //Кнопка неактивізована