Verkürzen??

[Durg]

Hallo,

wollte mal fragen ob man das irgendwie verkürzen kann:

Delphi-Quellcode:

procedure TTR.Bt1Click(Sender: TObject);
begin
  if Anzeige.Text = '0' then
    Anzeige.Text := '1'
  else
    Anzeige.Text := Anzeige.Text + '1'
end;

procedure TTR.Bt2Click(Sender: TObject);
begin
  if Anzeige.Text = '0' then
    Anzeige.Text := '2'
  else
    Anzeige.Text := Anzeige.Text + '2'
end;

...

procedure TTR.Bt8Click(Sender: TObject);
begin
  if Anzeige.Text = '0' then
    Anzeige.Text := '8'
  else
    Anzeige.Text := Anzeige.Text + '8'
end;

procedure TTR.Bt9Click(Sender: TObject);
begin
  if Anzeige.Text = '0' then
    Anzeige.Text := '9'
  else
    Anzeige.Text := Anzeige.Text + '9'
end;

procedure TTR.Bt0Click(Sender: TObject);
begin
  if Anzeige.Text = '0' then
    Anzeige.Text := '0'
  else
    Anzeige.Text := Anzeige.Text + '0'
end;