delphi调用sql-server2000存储过程

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;