Saludos
Facil, en esta linea agregar
upper en la cadena
Código Delphi
[-]sql.Add('where upper(tipo_err) like upper(:cadena)');
Y seguir con esta linea
Código Delphi
[-]Params.ParambyName('cadena').asstring:='%'+edit1.text+'%';
Esta linea está de mas.