zahl durch ein Zeichen ersetzen ?

[Delphiturbo]

Ich habe das Problem gelöst
aber mit einem lagen Code
Also ich möchte nur letzte 2 Zeichen durch bestimmte Buchstaben ersetzen :

Vielleicht kann jamand den Code verkürzen

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var
//i : Integer;
feld1, l1,l2,l3,zeichen1,zeichen2: String;
begin
feld1:=Edit1.Text;

//for i:=0 to 10 do
l1 := Feld1[1];
l2 := Feld1[2];
l3 := Feld1[3];

if l2='0' then
    zeichen1:='a';
if l2='1' then
    zeichen1:='b';
if l2='2' then
    zeichen1:='c';
if l2='3' then
    zeichen1:='d';
if l2='4' then
    zeichen1:='e';
if l2='5' then
    zeichen1:='f';
if l2='6' then
    zeichen1:='g';
if l2='7' then
    zeichen1:='h';
if l2='8' then
    zeichen1:='i';
if l2='9' then
    zeichen1:='j';
// zeichen 2
if l3='0' then
    zeichen2:='a';
if l3='1' then
    zeichen2:='b';
if l3='2' then
    zeichen2:='c';
if l3='3' then
    zeichen2:='d';
if l3='4' then
    zeichen2:='e';
if l3='5' then
    zeichen2:='f';
if l3='6' then
    zeichen2:='g';
if l3='7' then
    zeichen2:='h';
if l3='8' then
    zeichen2:='i';
if l3='9' then
    zeichen2:='j';

Edit2.Text:='inf=' +l1+l2+l3 + '-' + zeichen1 +zeichen2;

end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
Edit1.Text := Format('%.3d', [UpDown1.Position]);
end;

end.