Hola, me pareces que art no esta defino, prueba de esta manera
Código Delphi
[-]
AdOQuery1.Active:= FALSE;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT (producto) as art, (codigo) as C, (grupo) as g FROM artic WHERE producto =:MyParam ');
AdoQuery1.Parambyname('MyPAram').asstring:='correa' ADOQuery1.Active:= TRUE;