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

const
  Code_Alphabet : array [Ord('a') .. Ord('z')] of String = (',.-', '-.,', {...} );
  //Hier schreibst du der Reihenfolge nach rein, in was die Buchstaben von 'a' bis 'z' übersetzt werden sollen.
  //Ord gibt dir übrigens den ASCII Wert des übergebenen Zeichens zurück. Achtung: Hier sind NUR kleinbuchstaben und keine äöü abgedeckt!
function Uebersetze(Klartext : String): String;
var
  i : Integer;
begin
  result := '';
  //Low und High geben dir jeweils den kleinsten/größten Index des übergebenen Arrays zurück
  //Oh, die hab ich ja garnicht benutzt... naja egal :D Nutzung: High(Code_Alphabet) wäre das gleiche wie Ord('z') hier.
  for i := 1 to Length(Klartext) do //was tut wohl Length ;) 
  begin
     result := result + Code_Alphabet[Ord(Klartext[i])];
  end;
end;					

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

const
  Code_Alphabet : array [Ord('a') .. Ord('z')] of String = (',.-', '-.,', {...} );
  //Hier schreibst du der Reihenfolge nach rein, in was die Buchstaben von 'a' bis 'z' übersetzt werden sollen.
  //Ord gibt dir übrigens den ASCII Wert des übergebenen Zeichens zurück. Achtung: Hier sind NUR kleinbuchstaben und keine äöü abgedeckt!
function Uebersetze(Klartext : String): String;
var
  i : Integer;
begin
  result := '';
  //Low und High geben dir jeweils den kleinsten/größten Index des übergebenen Arrays zurück
  //Oh, die hab ich ja garnicht benutzt... naja egal :D Nutzung: High(Code_Alphabet) wäre das gleiche wie Ord('z') hier.
  for i := 1 to Length(Klartext) do //was tut wohl Length ;) 
  begin
     result := result + Code_Alphabet[Ord(Klartext[i])];
  end;
end;					

1:
2:
3:
4:
5:

if Klartext[i] in [Ord('a') .. Ord('z')] then
  //Das zeichen kann übersetzt werden
else
  //Einfach das Zeichen so lassen und übernehmen!
  result := result + Klartext[i]; //Un-"verschlüsseltes" Zeichen einfügen					

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

procedure TForm1.Button1Click(Sender: TObject);
begin
   const
    Code_Alphabet : array [Ord('a') .. Ord('z')] of String = ('...','..-','.-.','-..','.--','-.-','--.','---','.._','._.','_..','.__','_._','__.','___','--_','-_-','_--','-__','_-_','__-','.-_','._-','_.-','-._','_-.');

    function Uebersetze(Klartext : String): String;
    var
     i : Integer;

    begin
  result := '';

  for i := 1 to Length(Klartext) do
  begin
     result := result + Code_Alphabet[Ord(Klartext[i])];
  end;

 end;					

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:

public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  const
    Code_Alphabet : array [Ord('a') .. Ord('z')] of String = ('...','..-','.-.','-..','.--','-.-','--.','---','.._','._.','_..','.__','_._','__.','___','--_','-_-','_--','-__','_-_','__-','.-_','._-','_.-','-._','_-.');
implementation

{$R *.dfm}

function Uebersetze(Klartext : String): String;
var
  i : Integer;
begin
  result := '';
  for i := 1 to Length(Klartext) do //was tut wohl Length ;)
  begin
     result := result + Code_Alphabet[Ord(Klartext[i])];
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Caption:=Uebersetze('hallo');
end;

end.					

1:

Caption:=Uebersetze('hallo');					

1:

if Klartext[i] = ' ' then					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Caption:=Uebersetze('hallo');
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Caption:=Uebersetze(Edit1.Text);
end;

end.