pasar parametro a un procedimiento desde select

[hibero]

tengo un Stored procedure al que le paso como parametro el codigo de un cliente y me retorna todas las facturas de ese cliente.

create procedure Facturas (ID integer)
returns(fecha date,num integer,total float)
as
begin
For Select fecha,num,total
from facturas
where id=:ID
into :fecha,:num,:total
begin
suspend;
end
end

Para mostrar los registros devueltos en delphi utilizo un DBgrid, enlazado a un componente TIBQuery, con la sentencia SQL

Select^*
From Facturas

me da un error. Evidentemente no le estoy pasando el valor del parametro del Procedimiento. Pero ¿Cómo se lo paso?.

Salu2