[ilichhernandez]

Prueba con esto ....

Código Delphi [-]
for n:=(Form1.ComponentCount -1) downto 0 do
    begin
       if ((Components[n] is TEdit) and (Components[n].tag = 1)) then
         begin
           tabla[n] := TEdit(Components[n]).text;
         end;
    end;

saludos...