procedure TMainForm.AccessExec(sql: string);
const
  acViewNormal   = $00000000;
  acQuitSaveAll  = $00000001;
var
  Access: Variant;
  AccessEnabled: boolean;
  ClassId: TCLSID;
begin
  AccessEnabled := CLSIDFromProgID(PWideChar(WideString('Access.Application')),ClassId) = S_OK;
  if not AccessEnabled
     then begin
            ShowMessage('Access не установлен');
            exit;
          end;

  try
     Access := GetActiveOleObject('Access.Application');
     except
	  Access := CreateOleObject('Access.Application');
  end;
  Access.Visible := True;
  Access.OpenCurrentDatabase('путь к файлу.mdb', False);
  // Access.Currentdb.OpenRecordset(sql);
  // Access.Currentdb.OpenRecordset('Запрос1');
  Access.DoCmd.OpenQuery('Запрос1', acViewNormal);
  Access.Disconnect;
  Access.Quit(acQuitSaveAll);
end;