DELPHI中怎样把SQL的存储过程的结果变量值取出来,有人知道吗???(100分)

群里的高手,问个问题ELPHI中怎样把SQL的存储过程的结果变量值取出来,有人知道吗???? 有例最好

adostoredproc1.Close;
adostoredproc1.ProcedureName:='sp_thchl';
adostoredproc1.Parameters.Clear;
adostoredproc1.Parameters.CreateParameter('out',ftInteger,pdoutput,1,1);
adostoredproc1.ExecProc;
edit1.Text :=adostoredproc1.Parameters[0].Value;
edit1.text就应该是输出参数吧