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;