[Bobok]

Si,perdon. Pense que seria alguna propiedad del opendialog que me olvide de poner,por eso crei que no seria necesario el codigo. El Opendialog tiene el filter para que solo abra archivos de excel.

Código Delphi [-]
procedure TfrmMain.btnAbrirClick(Sender: TObject);
begin
  If Fnuevabusqueda = true then
    begin
      if MessageDlg ('Realizar una nueva busqueda?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
        then begin
             ProgressBar1.Free;
             LimpiarGrillas;
             Opendialog1.Execute;
             self.Refresh;
             FArchivoexcel := Opendialog1.FileName;
             Grillaexcel.LoadFromXLS(Farchivoexcel);
             Barraestado.SimpleText := Opendialog1.Filename;
             end
        else
    end;
  if Fnuevabusqueda = false
    then begin
         Opendialog1.Execute;
         self.Refresh;
         FArchivoexcel := Opendialog1.FileName;
         Grillaexcel.LoadFromXLS(Farchivoexcel);
         Barraestado.SimpleText := Opendialog1.Filename;
         end;
end;

//Que bueno que leiste el Stick, acabo de editar tu mensaje para aplicar las etiquetas y puedas ver como se usan