Cuestión : componentes de manipulación

Hola el
I que maneja el viejo code
I de Delphi 7 hace que una forma con muchos TEdit
I utilice el código siguiente a los valores claros en mi problema del form
My es yo no puede imaginar cómo parar ciertos valores del clearing
Example
Edit1.text =
Edit2.text = Edit3.text = Edit4.text = el

When' de la información de carácter general' que utilizo la mi necesidad de siguiente del procedure
I de parar Edit1.text =' información principal' del clearing

procedure TForm1.Clear_values
var
j: Número entero;
begin
for j: = 0 ComponentCount-1 al do
begin
for j: = 0 ComponentCount-1 al do
begin

if TEdit (componentes [j]). Parent.Name = entonces showmessage “edit2” (“PRUEBA ");

si (los componentes [j] son TEdit) then
(componentes [j] como TEdit). Texto: = '';
si (los componentes [j] son Tcheckbox) then
(componentes [j] como Tcheckbox) .checked: = falso;
si (los componentes [j] son TRadioButton) then
(componentes [j] como TRadioButton) .checked: = falso;
si (los componentes [j] son TComboBox) then
(componentes [j] como TComboBox). Itemindex: = -1;
si (los componentes [j] son Tmemo) then
(componentes [j] como Tmemo) .text: = '';
end;

Thank you class= del

Respuesta : componentes de manipulación

procedimiento TForm1.Clear_values
var
  j: Número entero;
comenzar
  para j: = 0 a ComponentCount-1 hace
  comenzar
    para j: = 0 a ComponentCount-1 hace
    comenzar

     si (los componentes [j] son TEdit) y (componentes [i] <> Edit1) entonces
       (Componentes [j] como TEdit). Texto: = '';
     si (los componentes [j] son Tcheckbox) entonces
       (Componentes [j] como Tcheckbox) .checked: = falso;
     si (los componentes [j] son TRadioButton) entonces
       (Componentes [j] como TRadioButton) .checked: = falso;
     si (los componentes [j] son TComboBox) entonces
       (Componentes [j] como TComboBox). Itemindex: = -1;
     si (los componentes [j] son Tmemo) entonces
       (Componentes [j] como Tmemo) .text: = '';
extremo;