ADQuery1.BeginBatch;
try
  ADQuery1.AppendRecord([...]);
  ADQuery1.AppendRecord([...]);
  ADQuery1.AppendRecord([...]);
  ......
finally
  ADQuery1.EndBatch;
end;