Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht

[blondervolker]

Habe ein Beispielcode von Buchstabe als Zahl.Das funktioniert.
Aber wie bekomme ich hin,dass ich bei Eingabe einer Zahl im Edit1
ein Buchstabe im Edit2 angezeigt bekomme?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function getNR(c : char): integer;
begin
 result := 0; // Ergebniss initialisieren
 case c of
 'A': result := 11;
 'B': result := 22;
 'C': result := 33;
 'D': result := 55;
 

  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 + IntToStr(getNR(Edit1.Text[i]))+' ';
    Edit2.Text := Label1.Caption ;
  end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 edit1.text := uppercase(edit1.text);
 edit1.SelStart := Length(edit1.text);
end;

end.