[Decoding]

Например так

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
   Table1.Open;
   for i := 0 to ListBox1.Count-1 do
   begin
      Table1.Append;
      Table1.FieldByName( 'имя_поля' ).AsString := ListBox1.Items.Strings[i];
   end;
   Table1.Refresh;
   Table1.Close;
end;