procedure TForm1.CreatenewResearch1Click(Sender: TObject);
begin try
play_snd(1);
abf1.Execute;
except end;End;