podrias probar algo asi
Código Delphi
[-]
var
id_articulo : integer;
nombre_articulo : string;
...
tabla.locate('id_articulo',id_articulo,[]);
nombre_articulo := tabla.FieldByName('nombre_articulo').Asstring;
...
te recomiendo igualmente que consultes la ayuda del delphi sobre locate y FieldByName, asi como de tablas y querys en general.