[titomigue]

Buenas, he hecho una prueba y me a servido esto:

Código Delphi [-]
for i := 0 to Screen.FormCount-1 do
     if Pos('Clon',Screen.Forms[i].Name) > 0 then
        Begin
          ElClon := Screen.Forms[i];
          TForm2(ElClon).Edit1.Text := 'Soy '+Screen.Forms[i].Name;
        End;

De la manera que dice el amigo Neftali no he probado pero tiene buena pinta también.

Muchas gracias!