Prozedur für jeden Buchstaben

[burn]

Hallo allerseits,

ich muss für jeden Buchstaben/Zahl auf der Tastatur eine Prozedur ausführen.
Das ganze soll dann in etwa folgendermassen aussehen.

Ich habe einen Text z.B. "Dies ist ein Text"
Nun durchlaufe ich den String und lass für jedes Zeichen eine Prozedur ausführen.

Delphi-Quellcode:

procedure _49;
begin
  bla
end;

procedure _50;
begin 
  bla
end;

for i:= 1 to length(Text) do 
begin
  c := ord(Text[i]);
  case c of
    49 : _49;
    50 : _50;
  end;
end;

Soweit so gut ... Nun würde ich gerne die Case-Anweisung weglassen und frage mich
ob so was überhaupt geht ...

In etwa würde ich das gerne so haben ...

Delphi-Quellcode:

for i:= 1 to length(Text) do 
begin
  c := ord(Text[i]);
  RufeProzedurAuf('_' + IntToStr(c));  //Das geht leider nicht :-) 
end;

Hat irgendwer ne Idee ??

Grüsse Steve