Delphi BDE на w7x64

//Кнопка "Открыть БД".
procedure TForm1.Button1Click(Sender: TObject);
var
  Path, TableName : String;
  Od : TOpenDialog;
begin
  //Диалог выбора файла.
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( ParamStr(0) );
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageBox(0, 'Файл с заданным именем не найден. Действие отменено.'
      ,'Файл не найден!', MB_YESNO + MB_ICONWARNING + MB_APPLMODAL);
  end;
 
  ADOQuery1.Close;
  //Путь к папке, в которой находится выбранный файл.
  Path := ExtractFilePath(Od.FileName);
  //Имя файла = имя таблицы.
  TableName := ExtractFileName(Od.FileName);
  Label1.Caption := 'Таблица: ' + TableName;
  //Формируем строку соединения.
  ADOQuery1.ConnectionString :=
    'Provider=Microsoft.Jet.OLEDB.4.0;'
    + 'Data Source="' + Path + '";'
    + 'Extended Properties=dBASE IV;'
    + 'Persist Security Info=False;'
    + 'Mode=Share Deny None;';
  //Формируем SQL запрос.
  ADOQuery1.SQL.Text := 'select * from [' + TableName + ']';
  ADOQuery1.Open;
end;