Курсовая работа: База данных DVD–фильмов

else

editzap;

end;

//на кнопку

procedure TForm1.Button2Click(Sender: TObject);

begin

deletef(horizon);

end;

//удаление во всплывающем

procedure TForm1.N26Click(Sender: TObject);

begin

deletef(horizon);

end;

//Удаление из меню

procedure TForm1.N5Click(Sender: TObject);

begin

deletef(horizon);

end;

///---------------------------------------------------

{Окно "О программе"}

procedure TForm1.N21Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.Edit9Click(Sender: TObject);

begin

edit9.clear;

end;

procedure TForm1.Button7Click(Sender: TObject);