punteros en delphi

[karen08]

hola

Código Delphi [-]
 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, MPlayer;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    MediaPlayer1: TMediaPlayer;
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  MediaPlayer1.FileName := 'D:\bajados\sonidos\';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

case combobox1.ItemIndex of
0: begin
    Label1.Caption := 'ONE';
    MediaPlayer1.FileName := 'D:\bajados\one.mp3';
    end;
1: begin
    Label1.Caption := 'TWO';
    MediaPlayer1.FileName := 'D:\bajados\two.mp3';
    end;
2: begin
    Label1.Caption := 'THREE';
    MediaPlayer1.FileName := 'D:\bajados\three.mp3';
    end;
3: begin
    Label1.Caption := 'FOUR';
    MediaPlayer1.FileName := 'D:\bajados\four.mp3';
    end;
4: begin
    Label1.Caption := 'FIVE';
    MediaPlayer1.FileName := 'D:\bajados\five.mp3';
    end;
5: begin
    Label1.Caption := 'SIX';
    MediaPlayer1.FileName := 'D:\bajados\six.mp3';
    end;
6: begin
    Label1.Caption := 'SEVEN';
    MediaPlayer1.FileName := 'D:\bajados\seven.mp3';
    end;
7: begin
    Label1.Caption := 'EIGHT';
    MediaPlayer1.FileName := 'D:\bajados\eight.mp3';
    end;
8: begin
    Label1.Caption := 'NINE';
    MediaPlayer1.FileName := 'D:\bajados\nine.mp3';
    end;
9: begin
    Label1.Caption := 'TEN';
    MediaPlayer1.FileName := 'D:\bajados\ten.mp3';
    end;
end; // fin case
MediaPlayer1.Open;
MediaPlayer1.Play;
0:label1.Caption:= 'ONE';
1:label1.Caption:= 'TWO';
2:label1.Caption:= 'THREE';
3:label1.Caption:= 'FOUR';
4:label1.Caption:= 'FIVE';
5:label1.Caption:= 'SEX';
6:label1.Caption:= 'SEVEN';
7:label1.Caption:= 'EIGHT';
8:label1.Caption:= 'NINE';
9:label1.Caption:= 'TEN';
END;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CLOSE;
end;
end.

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  MediaPlayer1.FileName := 'D:\bajados\sonidos\----------.mp3';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

como hago para que los sonidos salgan automaticos solamente al escoger la opcion en el combobox y ademas que archivo colocaria en el procedimiento anterior si ya he asignado cada archivo de sonido en el case de cada uno.