const Arr : Array[0..1] of Array[0..38] of String = (
('.-', '-...', '-.-.', '-..', '.', '..-.', '--.', '....', '..', '.---', '-.-', '.-..', '--', '-.', '---', '.--.', '--.-', '.-.', '...', '-', '..-', '...-', '.--', '-..-', '-.--', '--..', '-----', '.----', '..---', '...--', '....-', '.....', '-....', '--...', '---..', '----.', '.-.-.-', '--..--', '..--..'),
('A' , 'B' , 'C' , 'D' , 'E', 'F' , 'G' , 'H' , 'I' , 'J' , 'K' , 'L' , 'M' , 'N' , 'O' , 'P' , 'Q' , 'R' , 'S' , 'T', 'U' , 'V' , 'W' , 'X' , 'Y' , 'Z' , '0' , '1' , '2' , '3' , '4' , '5' , '6' , '7' , '8' , '9' , '.' , ',' , '?'));
...
// l = Zu Enkodierender String
for i := 1 to Length(l) do
begin
if l[i] = ' ' then
s := s + '/ '
else
for j := 0 to High(Arr[1]) do
if Arr[1][j] = Trim(UpperCase(l[i])) then
s := s + Arr[0][j] + ' ';
end;