¡Ah! Ok. Di por sentado que el código estaba dentro del mismo formulario. Entonces a tu función puedes pasarle como parámetro el formulario deseado:
Código Delphi
[-]
procedure HazAlgoConLasComponetesDeUnFormulario(F: TForm);
begin
for i:=0 to (F.ComponentCount-1) do
begin
if F.Components[i] is TControl then
with TControl(F.Components[i]) do
begin
end;
end;
end;
// Saludos