Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht

[blondervolker]

ich meine diesen Code:

Delphi-Quellcode:

function getNR(c : char): char;
begin
 result := ' '; // Ergebniss initialisieren
 case c of
 '1': result := 'A';
 '2': result := 'B';
 '3': result := 'C';


  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i : INTEGER;
begin
 Label1.Caption := '';
  for i := 1 to length(Edit1.text) do
  begin
    Label1.Caption := Label1.Caption + getNR(Edit1.Text[i])+' ';
    Edit2.Text := Label1.Caption ;
  end;
end;