Ayuda con un codigo de cambio de clave.

[DOS]

Ok, gracias ecfisa, le realice alguna modificacion.

Código Delphi [-]
 Lo mismo de antes +
  if  newclave = clavebis then    //comparo las nuevas claves
  begin        //Modifico la clave
    table1.Edit;
    table1.FieldByName('Clave').AsString:=newclave;
    table1.Post;
    table1.Next;
    if application.messagebox('la clave a sido cambiada correctamente'+
          ', ¿desea volver al menu principal?',
          'consulta',MB_OKcancel+MB_iconquestion)=IDOK then
    begin
      form3.Hide;
      form2.Show;
    end;
  end
  else
    ShowMessage('Clave o Nombre Incorrectos');
end;
end.

El problema ahora es si ingreso mal un dato, despues de aparecer el mensaje de clave incorrecta, se cuelga ahi.

[DOS]

Juro que no toque nada no se porque sale horizontal, ya lo edite

[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 ).

[DOS]

Muchas gracias y disculpen la tardanza en responder.