procedure TForm1.Button4Click(Sender: TObject);
begin try
if open1.Execute then Edit7.Text:='"'+open1.FileName+'" %url%';
except end;End;