Код: Выделить всё
модуль Main;
интерфейс
тип TMainForm = класс(TForm)
Button1: ТКнопка;
Button2: ТКнопка;
Button3: TButton;
Button4: TButton;
ListBox1: TListBox;
процедура Button4Click(Отправитель: ТОбъект);
защищенные
закрытые
открытые
Кнопка1: ТКнопка;
Кнопка2: ТКнопка;
конструктор Создать(аВладелец: ТКомпонент);
конец;
перем MainForm: TMainForm;
реализация
процедура TMainForm.Button4Click(Отправитель: ТОбъект);
перем Ц: Целое;
Стр: строка;
начало
для Ц := 1 до 10 выполнять
начало
Стр := 'Запись ' + ЦелоеВСтроку(Ц);
ListBox1.Элементы.Добавить(Стр);
конец;
конец;
конструктор TMainForm.Создать(аВладелец: ТКомпонент);
начало
родительский Создать(аВладелец);
Кнопка1 := Button1;
Кнопка2 := Button2;
конец;
конец.