عدم مقدار گیری پارامترها در ADOStoredProc

[hadisalahi2]

با سلام به همگی دوستان
من یک SP تعریف کردم و میخوام پارامترهای اون رو هنگام اجرا تعریف کنم.
من با استفاده از کد زیر نام SP و پارامترهای اون رو تعریف میکنم ولی مشکل توی اینه که نمیدونم چرا مقدار پارامترها بعد از مقدار دهی بازهم Null قرار میگره و مقداری که من قرار میدم داخل پارامترها قرار نمیگیره



procedure TForm7.Button1Click(Sender: TObject);
var
I: Integer;
begin
ADOStoredProc1.ProcedureName:='InsertInBox';
ADOStoredProc1.Parameters.Clear;
for I := 0 to ComboBoxValue1.Items.Count-1 do
begin
ADOStoredProc1.Parameters.Add;
ADOStoredProc1.Parameters[i].Name:=ComboBoxValue1.Items2.Strings[i];
end;

for I := 0 to ComboBoxValue1.Items.Count-1 do
ADOStoredProc1.Parameters[i].Value:=trim(ComboBoxValue1.Items.Strings[i]);
ADOStoredProc1.Open;
end;

لازم به ذکره که من نام پارامتر ها و مقدار ها رو در داخل یک کومبو باکس ذخیره کردم.
یا حق