Interbase - seleccion multiple en procedimientos almacenados

Hola,

Tengo un procedimiento almacenado para realizar una selección multiple en una tabla, que es el siguiente:

CREATE PROCEDURE NEW_PROCEDURE (
H INTEGER)
RETURNS (
TOTAL INTEGER)
AS
BEGIN
/* Procedure body */
select clvint from registros where CLVHABITACION = :h into :total;
SUSPEND;
END

y cuando lo ejecuto me da el siguiente error:

fmProcView_1.frmData.DataD.SelectQuery:
multiple rows in singlento select
.
multiple rows in singlento select.

Que tengo que hacer para que solucionar el erro???

Ponerle un for delante del select .