[dec]

Hola,

Código Delphi [-]
 var
   i: integer;
   cadena: string;
   total: integer;
 begin
   total := 0;
   cadena := 'Bienvenido al ClubDelphi';
   for i := 0 to Length(cadena) do
     total := total + Ord(cadena[i]);
   ShowMessage(IntToStr(total));
 end;