서버 프로시져입니다. 

CREATE OR REPLACE PROCEDURE TEST_DATA
( OCODE_TEMP IN HP.OCODE%TYPE,
  ONAME_TEMP OUT HP.ONAME%TYPE,
  IO_TEMP OUT HP.IO%TYPE
)
IS
BEGIN
   SELECT ONAME,IO INTO ONAME_TEMP, IO_TEMP
   FROM HP
   WHERE OCODE = OCODE_TEMP;
END;

아래처럼 하는데 에러는 없고 결과값이 없는데 뭐가 잘못된건지요??/

서버단에서 직접 execute하면 결과는 나오는거 보면 프로시져는 이상이 없는것 같은데요..

부탁드립니다.

procedure TForm1.Button1Click(Sender: TObject);
VAR AAA,BBB : STRING;
begin
     UniStoredProc1.Close;
     UniStoredProc1.Params.Clear;
     UniStoredProc1.StoredProcName:='TEST_DATA';
     UniStoredProc1.Params.CreateParam(ftstring,'OCODE_TEMP',ptInput).AsString:='add';
     AAA:=UniStoredProc1.Params.CreateParam(ftstring,'ONAME_TEMP',ptoutput).AsString;
     BBB:=UniStoredProc1.Params.CreateParam(ftstring,'IO_TEMP',ptoutput).AsString;
     UniStoredProc1.ExecProc;

     SHOWMESSAGE(aaa+'  '+bbb);

end;