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 -> Insert Into Table1 values(:PNumP)PNumP: целое число, размер = 7 (аналогично столбцу в таблице 1)

Ошибка: Could Not convert variant of type (UniCodeString) into type (Double).