[ecfisa]

Hola DOS.

Una observación sobre el código que tarde o temprano te dará un dolor de cabeza:
Si no sacas el Table1.First; de dentro del condicional (if newclave = clavebis then), sólo va a cambiar la clave si el dato buscado corresponde al primer registro y luego sea este caso o no, el programa va quedar frizado...

Mejor sería:

Código Delphi [-]
...
  while Table1.eof = false do     //  corro la tabla
  begin 
     if ...
       if ...
       begin
          ...
       end;
     Table1.Next;
  end;

Un saludo.