como recorrer una estructura de edits

[tiagor64]

Hola foro:

Tengo un problema con unos edits, ya que tendria que recorrer todos los edits de un formulario y pasarlos a una bd y no se como hacer un bucle para que me cambie el nombre del edit del q recoger la informacion.

tengo cuadros de texto del 1 al 16 p.ej. edit1, edit2, ... edit16 y necesitaria que un bucle me fuera incrementando el numero de edit para recorrer todos los edits y asi recoger en la base de datos su valor.

Muchas gracias.

[tiagor64]

ya tengo la solucion:

 procedure TForm4.Button1Click(Sender: TObject);
var i : integer;
 dato : string;
begin
 For i:=1 To 16 Do
 With TEdit (FindComponent ('cod'+IntToStr(i))) Do
 Begin
	// aqui va el codigo sql
 End;
end;

[ramiretor]

Hola:
Te comento que no es la única manera de hacerlo, pues Delphi guarda los componentes en una matriz interna (así como componentes contenedores), por ejemplo:

Código Delphi [-]
Procedure TForm1.MiProcedimiento;
var
  i: Integer;
begin
   with Form1 do
   begin
      for i:= 0 to ComponentCount  - 1 do
      begin
         if Components[i] is TEdit then
         begin
            /// la propiedad  del compenente que quieras
         end;
      end;
   end;


end;

Saludos y espero te sirva