[[Héctor Randolph]]

Hola platense:07

Para obtener el número que le corresponde a cada caracter según la tabla podrías crear un función como esta:

Código Delphi [-]
function CharToNum(c: Char):Integer;
begin
  case UpCase(c) of
   'A','J','S': Result:=1;
   'B','K','T': Result:=2;
   .
   . 
   'E','N','Ñ','W': Result:=5; // Consideras también a la Ñ
   .
   .

   else Result:=0;
  end;
end;

Finalmente puedes llamar a la función de esta forma para cada letra de la cadena y hacer la suma

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Numero: Integer;
begin
   Numero:=CharToNum(Edit1.Text[1]);//Calculamos el número del primer caracter del edit
   ShowMessage(IntToStr(Numero));   //Muestro el número
end;

Saludos