Hi,guys,I hope someone can help me.

I am trying to call RPG program of DB2 in Delphi. I write a stored procedure to package the RPG, then try to call it using TStoredProc. The following is my code, when it run, nothing happened, just keep on running,and the form can not be closed!


with cl01bth.StoredProc do begin
StoredProcName := 'DOCPGM.CULDBCLS';
Params.clear;
Params.CreateParam(ftString,'INPARM',ptInput);
Params.CreateParam(ftString,'OUTPARM',ptOutput);
Params[0].AsString :=cl01bth.bth.Text ;
try
ExecProc;
except
end;