[Master-Sergey]

Помогите пожалуйста!
1. Разработать консольное приложение, в котором поместить 3 процедуры, вложенные друг в друга. Каждую процедуру сопроводить двумя сообщениями в начале и в конце тела процедуры. Проследить обработку исключений, если защитить вызов процедуры во внешнем блоке. Тип ошибки выбрать произвольно, например – деление на ноль.

TList

Выполните задание, запишите все коды программ и полученные результаты в тетрадь (по каждому шагу).
1. Создайте консольное приложение (подключите соответствующий модуль uses classes).
2. С помощью конструктора класса создайте экземпляр класса mylist.
3. Выведите на экран значения свойств Capacity и Count.
4. Используя средства отладки узнайте значение mylist.list.
5. Используя метод Add добавьте к списку ссылку на значение целого типа (объявите указатель целого типа, создайте динамическую переменную и присвойте ей значение).
6. Добавьте таким же образом еще 10 случайных целых чисел.
7. Выведите на экран значения списка через item.
8. Выполните над списком следующие действия: удалите элемент под индексом 2, вставьте значение после элемента с индексом 3. После каждого действия выведите список на экран.
9. Отсортируйте список по возрастанию (методом пузырька).

TStringList

1. Создать приложение, содержащее форму, на ней три кнопки. Создать экземпляр класса TStringList в момент создания формы. Добавьте в список эти три кнопки. Измените надписи на кнопках, получая доступ к объекту через список, соответствующие свойству строки элемента списка.
2. Создайте форму. Создайте на ней три кнопки (они должны появиться через одну минуту, после того как появится окно запущенного приложения)! Выполните все действия первого задания для данного случая.
3. Выполните действия 2-го задания, используя массив компонент components класса TApplication (и свойство числа компонент componentcount).

Помогите, кто чем сможет!