Кодинг

[benedict]

Pstavi v entot svoi tsikl peremrnnuiu skajem i

procedure TForm1.PauseClick(Sender: TObject);
var i:integer;
begin
i=0;
with MediaPlayer1 do
begin
i:=i+1;
Close;
FileName:=FileListBox1.FileName;
Open;
Pause;
if i=1 then
begin
Play;" ili sho tam nada dlia togo shobi on zapel dalishe "
i=0;
end;
end;

Vrode doljno srabotati