[AlexAwert]

[quote=Alegun]Может быть и так

Код:

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

Спасибо! Натолкнули меня на мысль

У меня так сработало


Обработчик кнопки для открытия формы с нужными bdedit'ми

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
form3.show;
ADOQuery2.insert;
end;

Обработчик кнопки уже на самой форме с дб эдитами

Код:

procedure TForm3.Button3Click(Sender: TObject);
begin
try
dbedit1.Text:=md7(dbedit1.text);
dbedit2.Text:=md7(dbedit2.text);
Form2.ADOQuery2.Post;
close;
except
ShowMessage('Не заполнены обязательные поля');

end;
end;

Получилось даже немного попроще