Erro ao editar um registro quot;At end of tablequot;.

   try
     if not dmLabo.Labo.InTransaction then
       dmLabo.Labo.StartTransaction;

     with dmLabo.qrPedidos do
      begin
       Post;
       ApplyUpdates;
      end;
   
      dmLabo.Labo.Commit;
      TotalGeral;
   except
      dmLabo.Labo.Rollback;
      Application.MessageBox(´Não foi possível gravar as informações.´, ´Contabilidade´ ,  mb_OK + MB_ICONERROR);
   end;   

Utilizo o codigo abaixo para editar o registro.

try
    dm.qrPedidos.Edit
   except
      dmLabo.Labo.Rollback;
      Application.MessageBox(´Não foi possível editar o       registro.´, ´Contabilidade´ ,  mb_OK + MB_ICONERROR);
   end;