Hola Subliminalz.
Sólo como agregado, si quisieras obtener la suma a partir de un valor numérico:
Código Delphi
[-]
function SumarDigitosPrimos(Numero: Integer): Integer;
var
i, Digito: Integer;
begin
Result := 0;
while Numero > 0 do
begin
Digito := Numero mod 10;
if Digito in [1,2,3,5,7] then
Inc(Result, Digito);
Numero := Numero div 10;
end;
end;
...
begin
ShowMessage(IntToStr(SumarDigitosPrimos(12357)));
end;
Saludos.