punteros en delphi

[[Delphius]]

Karen08,
Por favor emplea las etiquetas [delphi] y [/delphi]
Para que el código delphi quede resaltado y se entienda mejor.

Con respecto al problema se soluciona dentro del mismo case. La estructura debe repetirse para cada valor, tu sólo lo haz hecho para el UNO.

Código Delphi [-]
case combobox1.ItemIndex of
0: begin
    Label1.Caption := ...
    MediaPlayer1.FileName := ....
    end;
1: begin
    Label1.Caption := ...
    MediaPlayer1.FileName := ....
    end;
...
10: begin
      Label1.Caption := ...
      MediaPlayer1.FileName := ....
     end;
end; // fin case
MediaPlayer1.Open;
MediaPlayer1.Play;

Saludos,