Ok, gracias ecfisa, le realice alguna modificacion.
Código Delphi
[-]
Lo mismo de antes +
if newclave = clavebis then begin 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.