[ecfisa]

Hola DOS.

En realidad me referería a que movieras la línea así:

Código Delphi [-]
...
    while Table1.eof = false do     //  corro la tabla
    begin             //comparo el apellido y la clave
      if (Table1.FieldByName('Apellido').AsString = apellido) and
         (Table1.FieldByName('Clave').AsString = contrasena) then
          if  newclave = clavebis then    //comparo las nuevas claves
          begin        //Modifico la clave
            table1.Edit;
            table1.FieldByName('Clave').AsString:=newclave;
            table1.Post;
            //  table1.Next;  --> De aquí
          end
          else
            ShowMessage('Clave o Nombre Incorrectos');
       table1.Next; // < --- A esta posición
    end;
...

(Tomando en cuenta el primer código)

Un saludo.

Nota: Ya corregí la identación del mensaje #11 ( creo que a eso te referías ).