Помогите записать условие

[Kostyaaaa]

Нужно записать условие на button.
Если на него нажать то воспроизводится аудио файл 1, при повторном нажатии 2 файл.

Воспроизводится всё так у меня:
form1.mediaplayer1.FileName:=('путь файла.wav');
form1.mediaplayer1.Open;
form1.mediaplayer1.Play;

[Dvoishnik]

идея ясна?

const limit = 10
..........
var ClikСalc:Integer;
............

procedure TForm1.FormCreate(Sender: TObject);
begin
 ClikСalc:=0;
end;
................

procedure TForm1.Button1Click(Sender: TObject);
begin
 inc(ClikСalc);
 if ClikСalc > limit then clikCalc:=0;
 form1.mediaplayer1.FileName:=('путь файла'+intToStr(ClikСalc) +'.wav');
 form1.mediaplayer1.Open;
 form1.mediaplayer1.Play;
end;

[kropotkina-alice]

Сообщение от Kostyaaaa

Нужно записать условие на button.
Если на него нажать то воспроизводится аудио файл 1, при повторном нажатии 2 файл.

procedure Tfmain.ButtonPlayClick(Sender: TObject);
begin
if (Mediaplayer1.FileName='') or (Mediaplayer1.FileName='file2.wav') then
Mediaplayer1.FileName:='file1.wav' else
Mediaplayer1.FileName:='file2.wav';
Mediaplayer1.Open;
Mediaplayer1.Play;
end;

[Dozent]

procedure Tfmain.ButtonPlayClick(Sender: TObject);
begin
if (ButtonPlayClick.Tag=0) then
   begin
     Mediaplayer1.FileName:='file1.wav';
     ButtonPlayClick.Tag=1;
   end
else
   begin
     Mediaplayer1.FileName:='file2.wav';
     ButtonPlayClick.Tag=0;   
   end
Mediaplayer1.Open;
Mediaplayer1.Play;
end;

Как-то так попробуйте