con Components... algo asi como esto:
Código Delphi
[-]
var i : Integer;
Componente : TComponet;
...
...
...
ifForm1.ComponentCount > 0 then
begin
for i := 0 to Form1.ComponentCount - 1 do
begin
Componente := Form1.Components[ i ];
if Componente is TEdit then
begin
TEdit(Component).Text:='Hola mundo';
end
else if Componente is TButton then
begin
TButton (Componente).Click;
end;
end;
end;