Is nich böse gemeint, aber das gibt's schon seit Win 3.x (wenn auch ein wenig umfangreicher) und nennt sich CharMap.exe (zwar nicht immer mitinstalliert... egal

trotzdem gut
Meine Frage wäre dann noch, ob du für jeden Button einzeln ein Onclick-Event benutzt?
kompakter geht's so:
Delphi-Quellcode:
Procedure TForm1.TheButtonClick(Sender:TObject);
Var S:String;
Begin
If Not(Sender is TButton) Then exit;
s:=(Sender AS TButton).Caption;
Showmessage('Die Taste hat den Wert '+StrToInt(Ord(S[1])));
end;
[ no warranty 4 Code, cauze produced by BrAiN & not @ Home

]