[*Caro*]

Hola, debes hacerlo como te indica MartinS, solo añadiendo, también puedes acceder al Item del ListBox de esta forma:

Código Delphi [-]
dmdatos.ATMATERIASDESCRIPCION.AsString:=  listbox2.Items[a];
 //y puedes utilizar With
for a := 0 to listbox2.count -1 do 
  begin 
    With dmdatos do
      begin
        ATMATERIAS.Append;
        ATMATERIASMATERIAID.AsString:=edit1.Text;
        ATMATERIASDESCRIPCION.AsString:=  listbox2.Items[a];
        ATMATERIAS.Post;
      begin
  end;

Saluditos