[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;