问题已解决，参照http://shantouyyt.blog.163.com/blog/static/6548147620116910246797/
oracel 函数
create or replace function fun_yyt_test
(p1 varchar2,p2 varchar2)
return varchar2
is
r1 varchar2(50);
begin
r1 := 'yyt';
return r1;
end;
第一种：TADODataSet 查询 这种可能会出现：在查询或DML中无法执行DML，提交或回退。
dspos := TADODataSet.Create(nil);
dspos.Connection := g_cnPOS;
dspos.CommandText := ' select fun_yyt_test(''1'',''6'') as result from dual ' ;//fun_yyt_test 为oracle 函数
dspos.Open;
bill := dspos.FieldByName('result').AsString;
showmessage(bill);
第二种：TADOStoredProc
proc := TADOStoredProc.Create(nil);
proc.Connection := g_cnPOS;
proc.ProcedureName := 'fun_yyt_test';
proc.Parameters.CreateParameter('@RETURN_VALUE', ftString, pdReturnValue, 50, Unassigned);
proc.Parameters.CreateParameter('p1', ftString, pdInput, 20, 'DJTHTZ001');
proc.Parameters.CreateParameter('p2', ftString, pdInput, 10, '9907');
proc.ExecProc;
ShowMessage(proc.Parameters.ParamByName('@RETURN_VALUE').value);
返回值 用@RETURN_VALUE 代替。
虽然不想用adostoreproc来调用，但是这是没有办法的办法了，如果各位大婶有用adoquery成功调用，还请多多指点啊。来人接分吧！
怎么一个人也没有啊！！！
跪求神仙啊！