begin
Close;
SQL.Clear;
SQL.Add('select count (num_decimo) as totalReg from reserva');
SQL.Add('where num_sorteo=:num_sorteo2');
DMPrimitiva.Query1.ParambyName('num_sorteo2').AsInteger:=StrToInt(Edit10.Text);
Open;
Edit2.Text:=DMPrimitiva.Query1['totalReg'].asString;
end;
como;
DMPrimitiva.Qinsertarjueves.parambyname('num_sorteo').value:= edit10.text;
DMPrimitiva.Qinsertarjueves.parambyname('num_sorteo2').value:= edit10.text;
edit2.Text := DMPrimitiva.Qinsertarjueves.fieldbyname('totalReg').AsString;
con Qinsertarjueves ('select count (num_decimo) as totalReg from reserva
where num_sorteo=:num_sorteo2')