como recorrer una estructura de edits

[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