recuperando muchos registros con StoredProc

[R0M3R0]

Buenas.
El problema pasa con que tengo un procedimiento almacenado cuyo codigo es el sig:

Código SQL [-]
CREATE OR REPLACE FUNCTION "public"."GetDatosEmpledo" (integer) RETURNS "public"."personal" AS
$body$
DECLARE
xnumempleado ALIAS FOR $1;
xreg personal%ROWTYPE;
BEGIN
SELECT * INTO xreg FROM personal
WHERE numempleado=xnumempleado;
RETURN xreg;
END;
$body$
LANGUAGE 'plpgsql' VOLATILE CALLED ON NULL INPUT SECURITY INVOKER;




como veran esta en pl/pgSQL que retona un registro de la trabla personal
con un objeto storedProc que esta relacionado con un Data set. Deseo recuperar estos datos para posteriormente mostrarlos en un DBGrid
para ello empleo el siguiente codigo


Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin
with StoredProc1 do
begin
ParamByName('numempleado_').AsInteger := StrToInt(Edit1.Text);
Prepare;
open;
end;
end;



pero me sale el siguiente error
Key violation.
GetData to Procedure return failed
Que estoy haciendo mal??
por favor HELP ME !

[defcon1_es]

Hola.

Prueba a cambiar Open por Execproc.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with StoredProc1 do
  begin
    ParamByName('numempleado_').AsInteger := StrToInt(Edit1.Text);
    Prepare;
    ExecProc;        //open;
  end;
end;

[R0M3R0]

defcon1_es
gracias ... por responder

Puesto que las pruebas de cambios por ExecProc u open; ya lo hice mucho hantes de iniciar este hilo..
sigo esperando opiniones

[ozsWizzard]

No sé si lo has hecho en tiempo de diseño, pero crear el parámetro de resultado es lo que creo que te falta, no sé.

Supongo que lo que es el de numempleado_ sí que lo tienes creado en tiempo de diseño.

procedure TForm1.Button1Click(Sender: TObject);
begin
   with StoredProc1 do
   begin
      Params.CreateParam(ftCursor, 'RESULT', ptResult);

      ParamByName('numempleado_').AsInteger := StrToInt(Edit1.Text);      
      open;
   end;
end;