Zwei Labels nacheinander mit Ziffernbuttons füllen

[Alallart]

Delphi-Quellcode:

//SpeedButton0 bis SpeedButton10 greifen auf die gleiche Prozedur zu
procedure TForm1.SpeedButton1Click(Sender: TObject);

  function GetNumber(LabelName: String): String;
  var
    s: String;
  begin
    //Routine geht davon aus, dass alle Buttons die Nummer
    //SpeedButton0 bis SpeedButton10 haben.
    s := LabelName;
    Delete(s, 1, Length('SpeedButton')); //Entfernt Text vor der Zahl
    Result := s;
  end;

begin
  if Label1.Caption = '' then
    Label1.Caption := GetNumber(TSpeedButton(Sender).Name)
  else
    if Label2.Caption = '' then
      Label2.Caption := GetNumber(TSpeedButton(Sender).Name);
end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
  Label1.Caption := '';
  Label2.Caption := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SpeedButton12Click(nil);
end;