[[xEsk]]

He hecho otra prueba, creando un nuevo formulario en tiempo de ejecución y asignarle un icono, y también ha funcionado:

Código Delphi [-]
  with TForm.Create(self) do
    try
      Icon.Assign(Image1.Picture.Icon);
      ShowModal;
    finally
      Free;
    end;

Saludos.