Tag

[FabianIBerlin]

Es ist schon lange her ds ich mit Tag einer Componente gearbeitet habe und jetz wo ich es mal wider machen möchte funktioniert das nicht richtig kann mir mal jemand sagen, was ich da falsch gemacht habe:

Code:

  
procedure TForm1.ClearBtnClick(Sender: TObject);
begin
  Case tag  of
    0 :  Begin
           LinkerStapel.clear;
           LinkerFuellstandLabel.Caption := IntToStr(LinkerStapel.Fuellstand);
         end;
    1:  Begin
           RechterStapel.clear;
           RechterFuellstandLabel.Caption := IntToStr(RechterStapel.Fuellstand);
         end;
  end;
end;

Dieses Ereignis wird von 2 Buttons aufgerufen einer mit Tag 0 einer mit Tag 1 aber er ruft immer Denn fall für den tag 0 auf....