在存储过程控件ADOStoredProc中，怎样动态地指定存储过程名称？(0分)

在存储过程控件ADOStoredProc中，怎样动态地指定存储过程名称？
if F_tinput.ModifyRecord=true then
begin
with ADOStoredProc1 do
begin
close;//我觉得是这的问题
Name := 'update_thesisjoiner';
parameters.parambyname('@tid').value:=thesis.FieldValues['tid'];
parameters.parambyname('@thesisname').value:=thesis.fieldbyname('论文名称').AsString;
parameters.parambyname('@wid').value:=thesisjoiner.FieldValues['wid'];
parameters.parambyname('@name').value:=trim(edit1.Text);
parameters.parambyname('@position').value:=strtoint(edit2.Text);
parameters.parambyname('@weight').value:=trim(edit3.Text);
prepared:=true;
Prepared;
ExecProc ;
end;
F_tinput.ModifyRecord:=False;
end
else
begin
with ADOStoredProc1 do
begin
close;
Name := 'insert_thesisjoiner';
parameters.parambyname('@tid').value:=thesis.FieldValues['tid'];
parameters.parambyname('@thesisname').value:=thesis.fieldbyname('论文名称').AsString;
parameters.parambyname('@name').value:=trim(edit1.Text);
parameters.parambyname('@position').value:=strtoint(edit2.Text);
parameters.parambyname('@weight').value:=trim(edit3.Text);
prepared:=true;
Prepared;
ExecProc ;
end;
end;
这么做就是不对，不执行