1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key='a') or (Key='A') then
 begin
 Memo1.Text:=Memo1.Text+'.-';
 Memo1.SelStart:=Length(Memo1.Text);
 Key:=#0;
 end
 else
 exit;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  TMorseZeichen = ('A'..'Z','0'..'9',' ');

const
  MorseCode: array[TMorseZeichen] of String = (
    '--.',
    '.--',
    ...
    ' '); // keine Ahnung, wie die Zeichen wirklich umgesetzt werden... ;)					

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:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

const
  MorseZeichen: set of Char = ['A'..'Z','0'..'9'];

  MorseCode: array['0'..'Z'] of String = ( // aus Wikipedia
    '·----', // 1  - Zahlen
    '··---', // 2
    '···--', // 3
    '····-', // 4
    '·····', // 5
    '-····', // 6
    '--···', // 7
    '---··', // 8
    '----·', // 9
    '-----', // 0

    '',      // :  - Dummies
    '',      // ;
    '',      // <
    '',      // =
    '',      // >
    '',      // ?
    '',      // @

    '·-',    // A  - Buchstaben
    '-···',  // 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:
10:
11:
12:
13:

  var
    i: Integer;
    Zeile: String;
begin
  if (Edit1.Text <> '') then begin
    Zeile := '';
    for i := 1 to Length(Edit1.Text) do
      if (UpCase(Edit1.Text[i]) in MorseZeichen) then
        Zeile := Zeile +MorseCode[Upcase(Edit1.Text[i])]+' ';
    Memo1.Lines.Add(Zeile);
  end
  else
    MessageDlg('Bitte Text eingeben!',mtError,[mbCancel],0);					

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

var
    i: Integer;
    Zeile: String;
begin
  if (Edit1.Text <> '') then begin
    // Nur wenn in dem Edit-Feld was drin steht, weitermachen
    Zeile := '';
      // Die Ausgabezeile erstmal auf leer setzen, die Morsezeichen werden dann immer angehängt
    for i := 1 to Length(Edit1.Text) do
      // Die gesamte Länge des im Edit-Feld stehenden Strings durchgehen (Buchstabe für Buchstabe)
      if (UpCase(Edit1.Text[i]) in MorseZeichen) then
        // Wenn der aktuelle Buchstabe im Morsezeichen-Set steht, also ein im Code enthaltenes Zeichen ist, ...
        Zeile := Zeile +MorseCode[Upcase(Edit1.Text[i])]+' ';
          // ...den dazu passenden MorseCode an Zeile anhängen.
    Memo1.Lines.Add(Zeile);
      // Fertig, also die Zeile mit den Morsecodes ins Memo schreiben
  end
  else
    MessageDlg('Bitte Text eingeben!',mtError,[mbCancel],0);					

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

  MorseCode: array['0'..'Z'] of String = ( // aus Wikipedia
    '-----', // 0  - Zahlen
    '·----', // 1
    '··---', // 2
    '···--', // 3
    '····-', // 4
    '·····', // 5
    '-····', // 6
    '--···', // 7
    '---··', // 8
    '----·', // 9

...