TSpeedButton Sender Übergabe Problem

[jdiephaus]

Zitat von nahpets:

Hoffentlich ist das jetzt besser.

Hallo Nahpets! Habe gerade getestet und bekomme leider immer noch keine Ausgabe. Habe es mit folgendem Minimalbeispiel probiert. Leider wie gesagt ohne Ausgabe auf label1.Caption. Ich weiß wirklich nicht was ich verkehrt mache, aber anscheinend erkennt er die Tags der SpeedButtons nicht.

Code:

procedure TForm1.TsbClick(Sender: TObject);
begin
  if Sender is TSpeedButton then begin
    zeichen := Chr(TSpeedButton(Sender).Tag + 48);
  end;
  label1.Caption := zeichen;
end;

Ich wäre dir wie zuvor sehr dankbar für deine Hilfe!

Schöne Grüße,
jdiephaus