[ecfisa]

Hola kurono.

Según un ejemplo que figura aquí: Executing Commands (FireDAC), el TFDQuery debería funcionar como cualquier otro query.

Intenta de este modo:

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 ARTICULO = :P_ARTIC');
    ParamByName('P_ARTIC').AsString := Trim(txt_buscar.Items.Text); // también podrías usar (UpperCase / LowerCase)
    Open;
  end;

Saludos