Interfaces...

[OscarG]

Bueno, tengo otra serie de preguntas sobre interfaces, anteriormente tb hice unas preguntas, creo q en otra zona, pero creo q es aqui donde está mejor.

En principio tengo esta pregunta, a ver si alguien me podría contestar...

Creo este objeto...
Defino la clase

Código Delphi [-]
type
  TMusica = class(TInterfacedObject, ITratarSonido )

La cosa es q creo el objeto Musica y le asigno la interfaz de esta forma:

Código Delphi [-]
  Musica:= TMusica.Create(Self);
  IMusica:= Musica as ITratarSonido;
  comp1.setSonido(IMusica);

comp1 es un objeto cualquiera q tiene q manejar la música através de su interfaz...

Código Delphi [-]
  procedure TComponente1.setSonido(val: ITratarSonido);
  begin
    isonido:= val;
  end;

Aqui ya he hecho algo fatal, xq casca...me gustaría saber cómo hacerlo...

Gracias de antemano...