realizar busqueda con un SP

[fedelphi]

Hola a todos, quiero realizar una busqueda en una tabla mediante un Stored procedure del cual no obtengo registros cuando hago la consulta. Me conecto mediante dbExpress con un sqlquery, un DatasetProvider, un clientdataset y un datasource para mostrar la respuesta en un dbgrid. el SP es asi

Código SQL [-]
PROCEDURE BUSCA_CLIENTE ( PA_APELLIDO Varchar(20) )
RETURNS (    
         ID_CLIENTE Integer, 
         NOMBRE Varchar(25),
         TELEFONO Varchar(15), 
         APELLIDO Varchar(20), 
         DIRECCION Varchar(30) )
AS
BEGIN
FOR
  SELECT id_cliente, nombre, telefono, apellido, direccion
  FROM CLIENTES      WHERE apellido=a_apellido
  INTO :id_cliente, :nombre, :telefono, :apellido, :direccion
  do SUSPEND;

y lo llamo al presionar enter en un Edit

Código Delphi [-]
 DataModule2.SQLQuery1.Close;
 DataModule2.SQLQuery1.ParamByName('pa_apellido').AsString:=Edit1.Text;
 Datamodule2.SQLQuery1.Open;
 DataModule2.SQLQuery1.Refresh;

y el SQL en el sqlQuery es

Código SQL [-]
select * from busca_cliente(a_apellido)

Si aqui coloco

Código SQL [-]
 select * from clientes

me devuelve todos los registros y los veo correctamente, pero al tratar de llamar al SP o realizar

Código SQL [-]
select * from clientes where apellido=:PA_Apellido

no obtengo ningun registro . Muchas gracias por la ayuda!!!
Fede