Fórum Function não retorna valores #411230

function Tfrmproutupdate.le_arq_ini(TEXTO: String): Boolean;

function Tfrmproutupdate.le_arq_ini(TEXTO: String): String;
var ArqIni: tIniFile;
begin
ArqIni := tIniFile.Create(C:\Sistema\executavel\CONFIG.INI);
try
Result := ArqIni.ReadString(Atualizacao, Build, TEXTO);
finally
ArqIni.Free;
end;
end;

procedure Tfrmproutupdate.FormCreate(Sender: TObject);
begin
LBBuild.Caption := le_arq_ini(LBBuild.Caption);
end;

function Tfrmproutupdate.le_arq_ini(var TEXTO: String): Boolean;
var ArqIni: tIniFile;
begin
ArqIni := tIniFile.Create(C:\Sistema\executavel\CONFIG.INI);
try
TEXTO := ArqIni.ReadString(Atualizacao, Build, TEXTO);
result := true;
finally
ArqIni.Free;
end;
end;

procedure Tfrmproutupdate.FormCreate(Sender: TObject);
begin
le_arq_ini(LBBuild.Caption);
end;

function Tdmvendas.descriptografasenha(Dsenha: String):Boolean;
begin
    dmvendas.criptografa.Action    := atDecryption;
    dmvendas.criptografa.Input     := dmvendas.sdsentrasistemaUSU_SENHA.Value;
    dmvendas.criptografa.Execute;
    try
    Dsenha  := dmvendas.criptografa.Output;
    result  := True;
    finally
      ShowMessage(Dsenha);// oque devo usar aq. eu coloquei um showmessage só para ver se deu certo
    end;
end;

procedure Tfrmlogin.btentrarClick(Sender: TObject);
var
mensagem, Ssenha: String;
begin
    mensagem:= Nome ou Senha do Usuário inválidos.;
    dmvendas.descriptografasenha(Ssenha);
      ShowMessage(Ssenha);
    if senha_usu.Text =  Ssenha then
     begin
      ...
      ...

    dmvendas.criptografa.Action    := atDecryption;
    dmvendas.criptografa.Input     := dmvendas.sdsentrasistemaUSU_SENHA.Value;
    dmvendas.criptografa.Execute;
    try
    Dsenha  := dmvendas.criptografa.Output;
    result  := True;
    finally
      ShowMessage(Dsenha); //não quero esse showmessage devo colocar oque para finalizar ou deixo sem valor?
    end;