Suma de dígitos primos - Simplificar código

[WkaymQ48]

Que tal así:

Código Delphi [-]
function Suma(Str: String): Integer;
var
  i: Integer;
begin
  Result:= 0;
  for i:= 1 to Length(Str) do
    if Str[i] in ['1','2','3','5','7'] then
      Result:= Result + StrToInt(Str[i]);
end;  

// Por ejemplo
Edit1.Text:= IntToStr(Suma(Edit1.Text));