DataModuleBD.Query2.Close;
DataModuleBD.Query2.SQL.Clear;
DataModuleBD.Query.SQL.Add('Select BECA_NVL');
DataModuleBD.Query2.SQL.Add('From ":BDBECAS_BAJDEF:BECAS"');
DataModuleBD.Query2.SQL.Add('Where BECA_TIPO = :btipo');
DataModuleBD.Query2.SQL.Add(';');
DataModuleBD.Query2.ParamByName('btipo').AsString := cbtipobeca.Text;
DataModuleBD.Query2.Open;