[ecfisa]

Hola sidneyb.

De este modo tiene que funcionar:

Código Delphi [-]
...
var
  qy: TADOQuery;
begin
  qy := ADOQuery1; // (el nombre de tu componente ADOQuery)
  qy.Close;
  qy.SQL.Clear;
  qy.SQL.Add('SELECT TIPOLISTAPRECIO');
  qy.SQL.Add('FROM CAJAS');
  qy.SQL.Add('WHERE SERIE = :P1');
  qy.Parameters.ParamByName('P1').Value := DataRegistro; 
  qy.Open;
...

Saludos