procedure TForm1.Button1Click(Sender: TObject);
begin try
if dirs1.Execute then begin
   case TButton(Sender).Tag of
      0:Edit4.Text:=dirs1.Directory;
      1:Edit5.Text:=dirs1.Directory;
      2:Edit6.Text:=dirs1.Directory;
   end;
end;
except end;End;