En principio, veo que no haces un Adotable1.Post.
Realmente no hace falta, ya que al moverse de registro, se guarda el anterior, pero no está demás añadirlo.
Quizás te interese AdoTable1.AppendRecord (espero que tenga ese método el Adotable), que solo es una línea.
También puedes simplificar esto:
Código Delphi
[-] QryEmpleados.Next;
end
else begin
QryEmpleados.Next;
end;
Esa línea se debe ejecutar en ambos casos del if, por tanto, sácalo fuera. No dará error, es una simple optimización.
Saludos