在delphi中如何用storeproc控件调用oracle存储过程?

ADOStoredProc1.Parameters.Clear;
  with ADOStoredProc1.Parameters.AddParameter do begin
    Name := 'JobName';
    DataType := ftString;
    Direction := pdInput;   //in
  end;
  with ADOStoredProc1.Parameters.AddParameter do begin
    Name := 'JobNum';
    DataType := ftInteger;
    Direction := pdOutput;  //out
  end;  with ADOStoredProc1 do begin
    Prepared := True;
    Parameters.ParamByName('JobName').Value := 'Pro_Rate;'; //in
    ExecProc;               //run
    JobNo := Parameters.ParamByName('JobNum').Value; //out
  end;注：ADOStoredProc1的ProcedureName指定為存储过程名。
CREATE PROCEDURE RunStop_Job (JobName IN VARCHAR2, JobNum OUT NUMBER)若用TStoredProc与上述TADOStoredProc的用法基本相同。