Problema criptografia senha update

Var SenhaAtual, NovaSenha : string;
SenhaAtual :=   Ado_Usuario.FieldByName('SENHA').AsString;NovaSenha :=   Encrypt(EditSenha.Text, chave);
if SenhaAtual <> NovaSenha then  Ado_Usuario.FieldByName('SENHA').AsString := NovaSenha;

procedure TSeuFormulario.SeuDataSetTQUERY1BeforePost(DataSet: TDataSet);
begin
if DataSet.State in [DsInsert] then
      DATASET.FieldByName('SENHA').AsString := Encrypt(EditSenha.Text, chave);
end;

DATASET.FieldByName('SENHA').AsString := Descrypt(EditSenha.Text, chave);

DATASET.FieldByName('SENHA').AsString := Encrypt(EditSenha.Text, chave);

//codigo afteropen  SenhaOld := cdsPadraoPasswd.AsString;

//codigo btnGravar    if SenhaOld <> edtSenha.Text then    begin      cdsPadrao.Edit;      cdsPadraoPasswd.AsString := MD5.MD5Print(MD5String(cxDBTextEditSenha.Text));      cdsPadrao.Post;    end;

//codigo afteropen  SenhaOld := cdsPadraoPasswd.AsString;

//codigo btnGravarvar    novasenha : String;
    novasenha := MD5.MD5Print(MD5String(cxDBTextEditSenha.Text));
    if SenhaOld <> novasenha then    begin      cdsPadrao.Edit;      cdsPadraoPasswd.AsString := novasenha;      cdsPadrao.Post;    end;

Ta errado ... O Certo é assim
 
EditSenha.Text:= Descrypt(DATASET.FieldByName('SENHA').AsString,chave);
 
Isto é , o conteudo do edit recebe o conteudo do campo senha descriptografada
 
Agora sim , na hora de gravar o campo recebe o conteudo do edit Criptografado
 
E no evento OnBeforePost:
DATASET.FieldByName('SENHA').AsString := Encrypt(EditSenha.Text, chave);

 private
    { Private declarations }
    FOldsenha:String;
  public
    { Public declarations }
    constructor Create(Aowner:Tcomponent;out StrSenha:String);reintroduce;
  end;
var
  FrmSenha: TFrmSenha;
implementation
{$R *.dfm}
{ TForm1 }
constructor TFrmSenha.Create(Aowner:Tcomponent;out StrSenha:String);
begin
  inherited Create(Aowner);
  FoldSenha:=StrSenha;
end;

procedure TForm6.Button2Click(Sender: TObject);
var
formulario:Tform;
oldSenha:String;
begin
   oldSenha:= SeuDataSet.FieldByName('Senha').AsString;  
   formulario:=TFrmSenha.Create(nil,oldSenha);
   try
      if formulario.ShowModal = mrOk then
        begin
             editSenha.text:=oldSenha;
             SeuDataSet.Edit;
             SeuDataSet.Post;
        end;
   finally
       formulario.Free;
       formulario:=nil;
   end;
end;

procedure TFrmSenha.btnValidarClick(Sender: TObject);
begin
 modalResult:=mrCancel;
 //NA verdade a comparacao Tem que ser assim  edit1.Text = Descriptogrvar(FOldsenha)
if not (edtSenhaAtual.Text = FOldsenha) then
  begin
    Showmessage('Senha incorreta ..');
    //Faz Alguma coisa .. Comuinca depois de um Nmero de Tentativas
    exit;
  end;
if edtNovaSenha.Text = edtConfirmarSenha.Text then
  begin
    FOldsenha:=edtNovaSenha.Text;
    modalresult:=mrOk;
  end;
end;
 
constructor TFrmSenha.Create(Aowner:Tcomponent;const StrSenha:String);
begin
  inherited Create(Aowner);
  FoldSenha:=StrSenha;
end;
 
end.

  modalResult:=mrCancel;
  if not (encrypt(edit1.Text, chave) = foldsenha) then
  begin
     showmessage('A senha não confere com a original!!!');
     exit;
     Edit1.SetFocus;
  end;
  if (edit2.Text = '') then
  begin
     showmessage('A nova senha não foi informada!!!');
     edit2.SetFocus;
  end;
  if (edit3.Text = '') then
  begin
     showmessage('Repetição da nova senha não foi informada!!!');
     edit3.SetFocus;
  end;
  if (alltrim(edit2.Text) <> alltrim(edit3.Text)) then
  begin
     showmessage('A repetição da senha não confere com a original!!!');
     edit2.SetFocus;
  end
  else
  begin
     FoldSenha := encrypt(edit3.text, chave);
     ModalResult:=mrOk;
  end;

procedure TFrmSenha.btnValidarClick(Sender: TObject);
begin
  if not (edtSenhaAtual.Text = foldsenha) then
  begin
     showmessage('A senha não confere com a original!!!');
     EdtSenhaAtual.SetFocus;
     exit;
  end;
  if (edtNOvaSenha.Text = '') then
  begin
     showmessage('A nova senha não foi informada!!!');
     edtNovaSenha.SetFocus;
     exit;
  end;
  if (edtConfirmarSenha.Text = '') then
  begin
     showmessage('Repetição da nova senha não foi informada!!!');
     edtConfirmarSenha.SetFocus;
     exit;
  end;
  if edtNovaSenha.Text <> edtConfirmarSenha.Text then
   begin
     showmessage('A repetição da senha não confere com a original!!!');
     edtConfirmarSenha.SetFocus;
   end
   else
    begin
       FoldSenha := edtConfirmarSenha.text;
       ModalResult:=mrOk;
  end;

procedure TForm6.btnAlterarSenhaClick(Sender: TObject);
var
formulario:Tform;
oldSenha:String;
UserName:String;
begin
     oldSenha:= SeuDataSet.FieldByName('Senha').AsString;
     User:=SeuDataSet.FieldByName('CampoComNomeUsuario').AsString;   
     formulario:=TFrmSenha.Create(nil,oldSenha,UserName);
   try
......................Segue o Codigo sem alteração