Debes eliminar Appliation, puesto que el owner de los formularios TForm2 es TForm1:
Código Delphi
[-]if Components[i].ClassName <> 'TForm2' then continue;
Tal como el código que expongo
aquí.
El código es un boceto y puede irse mejorando según las necesidades.
Vuelvo a subir el código completo por si las moscas...
Saludos.