problema con opendialog

[rzf1983]

a ver, tengo un problema con open dialog. en mi aplicacion tengo un boton Examinar... para abrir un archivo. Cuando lo habres la ruta del archivo aparece en un edit, el codigo del boton es:

procedure TForm1.BExaminarClick(Sender: TObject);
begin
  OpenDialog1.Execute;
  if OpenDialog1.Execute then
   begin
     Edit1.Text:=(OpenDialog1.FileName);
end;
end;

El problema es q cuando inicio la aplicacion, le doy a examinar y se abre el dialogo de Abrir.Hasta aqui todo correcto.

Selecciono mi archivo a abrir y le doy a aceptar, y ahora en lugar de salir de la ventana de abrir archivo, me vuelve a abrir otra vez esta ventana.Le doy a aceptar de nuevo y ahora sí se me coloca la ruta del archivo en el edit.

Es decir, selecciono el archivo, acepto, y vuelve a salir para seleccionar archivo de nuevo, acepto otra vez y entonces funciona. No se por qué me sale 2 veces