delphi調用sql存儲過程，並獲取結果

delphi調用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;