Meine Version:
Delphi-Quellcode:
procedure TTR.BtnClick(Sender: TObject);
begin
if Anzeige.Text = '0' then
Anzeige.Text := Str (Sender.Tag)
else
Anzeige.Text := Anzeige.Text + Str (Sender.Tag);
end;
Auch hier: Tags richtig setzen (Button1: 1, Button2: 2, usw.)