Parameter.value = ListBox .Item ... Delphi

Question

我一直有关于数据类型的错误，但首先我解释一下我想要做什么： 我有一个listBox，其中包含我想要插入到我的数据库中的一些项目，所以这就是我所做的：

For i:= 1 to ListBox.Count do
begin
  AdoQuery1.Parameters.ParamByName('PNumP').Value :=StrToInt(ListBox.Items[i]);
  AdoQuery1.ExecSQL;
end;

AdoQuery1 - ＆gt; Insert Into Table1 values(:PNumP) PNumP：整数，大小= 7（与表1中的列相同）

错误：Could Not convert variant of type (UniCodeString) into type (Double).