Ayuda con Error en Query

[Luigui59]

Que tal buenas tardes, pido su ayuda con un problema al correr un Query, ya que al hacer la búsqueda la primera vez lo hace bien, pero al querer generar una nueva búsqueda me marca error "exception class EOleException with message Óbjeto Parameter mal definido. Se proporcionó información incompleta o incoherente'

Pongo la parte del código donde se realiza el Query, ojala me puedan ayudar, soy principiante en la programación con Delphi.

De antemano Gracias¡¡¡

Código Delphi [-]
        bSql := 'SELECT clave, concepto, ' +
                'unidad FROM CATALOGO WHERE CATALOGO.clave = :Clave';
        ADOQuery2.Close;
        ADOQuery2.SQL.Add(bSql);
        ADOQuery2.Parameters[0].DataType := ftstring;
        ADOQuery2.parameters.ParamByName('Clave').value := tclaves;
        ADOQuery2.Open;
        if ADOQuery2.IsEmpty then
          begin
           if ADOQuery2.active then
               ADOQuery2.Close;
//               ADOQuery2 := ADOQuery2.Create(nil);
               bSql      := ' ';
               tclaves   := ' ';
               showmessage('CLAVE NO ENCONTRADA');
               tclave.SetFocus;
           end
        else IF ADOquery2.Fields[1].asstring <> '' THEN
          begin
            descripcion.Text := ADOquery2.Fields[1].asstring;
            unidad.Text      := ADOquery2.Fields[2].asstring;
            ADOQuery2.Close;
            memo1.SetFocus;
          end;