[cbrrr]

En lugar de usar el OnPostError, puedes usar contro de excepciones

Código Delphi [-]
 while not tabla1.eof do
 begin
   //asignamos los campos o montamos sentencia SQL de Insert (casi preferible)
   try
     Query.ExecSQL; // o bien Tabla2.Post;
   except
     // si el dato está duplicado, salta la excepción pero el bucle continua
   end;
 end;

Espero que te sirva