[vtdeleon]

Saludos

Intenta esto con parametros:

Código Delphi [-]
With Dataset do Begin
  Close;
  Sql.Text:='Select clave_promo from parrilla '+
                'where clave_radio=:radio AND '+
                'clave_promo=:grid AND '+
                'fecha<:fecha';
  ParamByName('radio').AsString:=Radios.Text;
  ParamByName('grid').AsString:=grid.Cells[0,fila_actual]
  ParamByName('fecha').AsDatetime:=fecha_buscar;
  Open;
end;