процедура TForm1.Clear_values
var
j: Интежер;
начните
для j: = 0 к ComponentCount-1 делает
начните
для j: = 0 к ComponentCount-1 делает
начните
если (компонентами [j] будут TEdit) и (компоненты [I] <> Edit1) после этого
(Компоненты [j] как TEdit). Текст: = '';
если (компонентами [j] будут Tcheckbox) после этого
(Компоненты [j] как Tcheckbox) .checked: = ложно;
если (компонентами [j] будут TRadioButton) после этого
(Компоненты [j] как TRadioButton) .checked: = ложно;
если (компонентами [j] будут TComboBox) после этого
(Компоненты [j] как TComboBox). Itemindex: = -1;
если (компонентами [j] будут Tmemo) после этого
(Компоненты [j] как Tmemo) .text: = '';
конец;