перекодировка

var
MorseTable: array[0..255] of string = ('','','' ... // символы, которые не имеют кода в Азбуке морзе - пустая строка
'.-','-...'  ... );  // А, Б, ...

OutStr:= OutStr + MorseTable[ord(Symbol)]; // OutStr - выходная строка, Symbol - очередной символ текста.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
const
  Alph: Array[1..36] of Char = ('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', '1', '2', '3', '4', '5', '6',
                                '7', '8', '9', '0');
 
  Morze: Array[1..36] of String = ('.-', '-...', '-.-.', '-..', '.', '..-.', '--.', '....',
                                   '..', '.---', '-.-', '.-..', '--', '-.', '---', '.--.',
                                   '--.-', '.-.', '...', '-','..-', '...-', '.--', '-..-',
                                   '-.--', '--..', '.----', '..---', '...--', '....-', '.....', '-....',
                                   '--...', '---..', '----.', '-----');
var
  Form1: TForm1;
  Stroka: String;
  O_Stroka: String;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j: Integer;
begin
  Stroka := Edit1.Text;
  Stroka := UpperCase(Stroka);
  O_Stroka := '';
  Label1.Caption := '';
  for i := 1 to 36 do
    for j := 1 to 36 do
      begin
        if Stroka[i] = Alph[j] then
          begin
            O_Stroka := O_Stroka + Morze[j];
            Label1.Caption := O_Stroka
          end;
      end;
end;
 
end.

beep;