[jafera]

Hola, prueba así

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);var a:integer;
begin  
for a := 0 to listbox2.count -1  do  
begin
             dmdatos.ATMATERIAS.Append;  // cambia de posición tal como dice newtron
             dmdatos.ATMATERIASMATERIAID.AsString:=edit1.Text;
             dmdatos.ATMATERIASDESCRIPCION.AsString:=listbox2.Items.Text;
             dmdatos.ATMATERIAS.Post;
             dmdatos.ATMATERIAS.Next;   // añade
end;

Saludos