[Resolvido] Variavel ponteiro recebendo valor de ListBox

Olá Pessoal,

Estou com um problemão por aqui, preciso fazer uma variavel do tipo ponteiro receber um valor de um ListBox (um por vez), mas estou com dificuldades para fazer isto. Será que alguém poderia me ajudar ? Estou passando o código abaixo e indicando onde estou com problema.

for X := 1 to QNT do

begin

ListBox1.Items.Add(IntToStr(RandomRange(N, N2)));

new(atual);

atual^.numero := ListBox1.Items.IndexOf(ListBox1.Items[x]); // ONDE ESTOU COM PROBLEMA

atual^.prox := nil;

if pri = nil then

begin

pri := atual;

ult :=atual;

atual^.ant := nil

end

else

begin

ult^.prox := atual;

atual^.ant := ult;

ult := atual;

end;

end;

Não sei se estou fazendo certo ali, mas o problema dá erro de "LIST INDEX OUT OF BOUNDS(1).

Por favor, preciso de ajuda.

Obrigado

Gilcimar