Hola kurono.
Si el problema es por mayúsculas/minúsculas, podrías utilizar lo que te sugerí en comentario del código anterior:
Código Delphi
[-]
with Cons_Articulo do
begin
Close;
SQL.Clear;
SQL.Add('SELECT ARTICULO, DESCRIPCION, PRECIOCOSTO, CANTIDAD, FECHA');
SQL.Add('FROM COMPRAS');
SQL.Add('WHERE UPPER(ARTICULO) = :P_ARTIC');
ParamByName('P_ARTIC').AsString := UpperCase(txt_buscar.Items.Text);
Open;
end;
Saludos