Hola, de todas formas si lo que quieres saber es como ir recorriendo el listbox para guardar los datos lo puedes hacer de la siguiente manera.
Código Delphi
[-]
for x:=0 to listbox1.Count-1 do
begin
"Aquí le asignas a tu dataset el valor de listbox":=Listbox1.Items[x];
end;
Saludos.