Delphi - contar los elementos de un listbox

Como puedo insertar los elementos que tengo en un listbox en una tabla de la base de datos?
tego la tablecategoria y necesito meter en ella los tres items que tengo en un determinado list box

como?
muchas gracias

Proba esto:

For i := 0 to ListBox1.Items.Count - 1 do
begin
Table1.append;
Table1.fieldbyname('campo').asstring := ListBox1.Items[ i ];
Table1.post;
End;