procedure TForm2.Enableautomaticplayback1Click(Sender: TObject);
begin try
play_snd(1);
Enableautomaticplayback1.Checked := not Enableautomaticplayback1.Checked;
except end;End;