Ja, das kann man.
Delphi-Quellcode:
procedure KLICK(Sender: TObject; var str: string;);
begin
if str = '0' then
str := inttostr(sender.tag);
else
str := str + inttostr(sender.tag)
end;
procedure TTR.Bt1Click(Sender: TObject);
begin
KLICK(self, anzeige.Text);
end;
Jetzt musst du nur bei jedem Button den Tag richtig setzen. Ich hab's nicht getestet, aber es müsste iegntlich so klappen
