[Alegun]

Может быть и так

Код:

 
procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
 with ADOTable1 do
  begin
   FieldValues['Password']:= md5(DBEdit1.Text);
   UpdateBatch;
  end;
end;

но через обычный едит всё же проще