1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

procedure TForm1.Button1Click(Sender: TObject);
var
  DecodeList, EncodeList : TStringList;
  StrToDecode, singleChar : string;
  I: Integer;
  CharPosition : Integer;
  ResultString : String;
begin
  DecodeList := TStringList.Create;
  EncodeList := TStringList.Create;

  // Beide Listen gehören zusammen umd müssen immer
  // gemeinsam geändert werden.
  DecodeList.CommaText := 'A=00, B=01, C=02';
  EncodeList.CommaText := '00=A, 01=B, 02=C';

  // Text der verschlüsselt wird
  StrToDecode := 'BAC';

  // Verschlüsseln
  for I := 1 to length(StrtoDecode) do
  begin
     singleChar := StrToDecode[i];
     CharPosition := DecodeList.IndexOfName(singleChar);
     if CharPosition <> -1 then
     begin
        ResultString := ResultSTring +' '+DecodeList.ValueFromIndex[CharPosition];
     end else
     begin
       ResultString := ResultString + ' ?';
     end;
  end;

  // Ausgabe
  showmessage (ResultString);

  DecodeList.Free;
  EncodeList.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function strToNums(s:String) : String;
var
  i : integer;
  str : string;
begin
  str := ''; 

  result := '';
  if length(s) = 0 then exit;

  for i := 1 to length(s) do
    str := str + intToStr(ord(s[i])-ord('A'))

  result := str;

end;