procedure TForm1.Clear_values
var
j: Geheel;
begin
voor j: = 0 tot componentCount-1
begin
voor j: = 0 tot componentCount-1
begin
als (de Componenten [j] is TEdit) en (Componenten [I] <> Edit1) toen
(Componenten [j] als TEdit). Tekst: = '';
als (de Componenten [j] is Tcheckbox) toen
(Componenten [j] als Tcheckbox) .checked: = vals;
als (de Componenten [j] is TRadioButton) toen
(Componenten [j] als TRadioButton) .checked: = vals;
als (de Componenten [j] is TComboBox) toen
(Componenten [j] als TComboBox). Itemindex: = -1;
als (de Componenten [j] is Tmemo) toen
(Componenten [j] als Tmemo) .text: = '';
eind;