procedura TForm1.Clear_values
varietà
J: Numero intero;
cominciare
per J: = 0 a ComponentCount-1 fa
cominciare
per J: = 0 a ComponentCount-1 fa
cominciare
se (componenti [J] è TEdit) e (componenti [i] <> Edit1) allora
(Componenti [J] come TEdit). Testo: = '';
se (componenti [J] è Tcheckbox) allora
(Componenti [J] come Tcheckbox) .checked: = falso;
se (componenti [J] è TRadioButton) allora
(Componenti [J] come TRadioButton) .checked: = falso;
se (componenti [J] è TComboBox) allora
(Componenti [J] come TComboBox). Itemindex: = -1;
se (componenti [J] è Tmemo) allora
(Componenti [J] come Tmemo) .text: = '';
estremità;