Hallo,
wenn der gezeigte Code Teil eines Taschenrechners sein soll, dann sind doch die Buttons wahrscheinlich mit den Ziffern und dem Komma bzw. Punkt beschriftet. Wieso nimmst Du dann nicht einfach
Delphi-Quellcode:
if (Sender
as TButton).Caption = '
'
then
raise Exception.Create('
Unbeschrifteter Button');
zei := (Sender
as TButton).Caption[1]
jkr