de listbox a tabla

[donpedro]

hola, estoy realizando un sistema para colegios y tengo un modulo donde asigno las materias a cada grado. tengo un edit que me acepta el codigo del grado que voy a utilizar, y tengo un listbox1 con todas las materias que estan registradas. tengo otro listbox2 donde voy a pasar las materias del listbox1 que ese grado va a utilizar. ejemplo:


lo que deseo es grabar los datos del listbox2 en una tabla obteniendo el codigo del grado y grabarlo que que quede por ejemplo:

materiaid ! descripcion
-----------!-----------------
5 ! ciencias naturales
5 ! ciencias sociales
5 ! conducta
5 ! educ. artistica

estoy usando el siguiente codigo pero no me funciona:::

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
dmdatos.ATMATERIAS.Append;
for a := 0 to listbox2.count -1  do
  dmdatos.ATMATERIASMATERIAID.AsString:=edit1.Text;
  dmdatos.ATMATERIASDESCRIPCION.AsString:=listbox2.Items.Text;
                          dmdatos.ATMATERIAS.Post;

necesito ver sus opiniones,,, espero que me hallan entendido,,, y gracias....