List index out of bounds erro

Olá, estou tentando passar as linhas de um litsbox pra dentro de um vetor, que vai de 0 até a última linha do listbox

for k:= 0 to listbox1.Items.Capacity do
begin
vetor[k]:=strtoint(listbox1.Items.Strings[k]);
end;

mas tá me retornando um erro, 'List index out of bounds (1)', alguém sabe o porque ?