conteudo do listBox para um campo da tabela tem como ????

Oi
Gostaria de copiar o conteudo do listBox para um campo da tabela
Tentei assim mas so copiou 2 items do listbox e reptiu 4 vezes ...

[b:1aee7b36c4]With IBTable1 Do
Begin
first;
While Not Eof Do
Begin
Insert;
for i:=0 to (listbox1.items.count-1) do
begin
IBTable1MATERIA.value:=listbox1.Items[I];
end;
post;
next;
End;
End; [/b:1aee7b36c4]

Alguem me ajude ?????