Código Delphi [-] fmodulo.tempresa.Fields.FieldByName ('pas').AsString := widestring( CalcHash2(Edit1.Text, haMD5) );
fmodulo.tempresa.Fields.FieldByName ('pas').AsString := widestring( CalcHash2(Edit1.Text, haMD5) );