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); Open;
end;
Saludos