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;