Button eindrücken

[LoL]

Hiho,

ich habe folgendes Problem:
Ich möchte einen Button haben, dass wenn man den einmal drückt das er eingedrückt bleibt und bei einem 2. Klick wieder nach oben geht. Dazu wollte ich einen Speedbutton und davon die Eigenschaft Groupindex nutzen. Der Groupindex ist doch dafür verantwortlich ob mehrere Buttons "selektiert werden können". Da hab ich mir gedacht das zu erlauben mehrere Buttons zu selektieren wenn man einmal drückt, und beim erneuten klick das wieder zurückzusetzen:

Delphi-Quellcode:

if SpeedButton1.Tag = 0 then
begin
  SpeedButton1.Tag := 1;
  SpeedButton1.GroupIndex := 0;
end
else
begin
  SpeedButton1.Tag := 0;
  SpeedButton1.GroupIndex := 1;
end;

Nur irgegendwie funktioniert das nicht so wirklich da ich manchmal mehrmals klicken muss bis der Speedbutton wieder "ausgedrückt" dargestellt wird.

Zitat von Delphi Hilfe:

Die Eigenschaft GroupIndex ermöglicht das Gruppieren mehrerer Mauspalettenschalter.

property GroupIndex: Integer;

Beschreibung

Mit GroupIndex können Sie festlegen, wie sich der Schalter beim Anklicken verhält.

Hat GroupIndex den Wert 0, ist der Schalter von den anderen Schaltflächen im Formular unabhängig. Klickt der Benutzer auf diesen Schalter, wird er gedrückt angezeigt. Sobald der Benutzer die Maustaste losläßt, wird er wieder in seinen nicht gedrückten Zustand versetzt.

Ist GroupIndex größer als 0, bleibt der Schalter ausgewählt (gedrückt), wenn der Benutzer auf ihn klickt. Durch das Klicken auf einen ausgewählten Schalter wird dieser in den nicht gedrückten Status versetzt, es sein denn, Caption hat den Wert False. Wird die Eigenschaft GroupIndex eines einzelnen Mauspalettenschalters auf einen Wert größer als 0 gesetzt, verhält sich der Schalter wie eine Schaltfläche mit zwei Zuständen, sofern CaptionTrue ist.

Mauspalettenschalter, die denselben Wert in der Eigenschaft GroupIndex aufweisen (dieser Wert darf nicht Null sein), fungieren als Gruppe. Wenn der Benutzer auf einen dieser Mauspalettenschalter klickt, bleibt dieser gedrückt, bis der Benutzer auf einen anderen Schalter der Gruppe klickt. Auf diese Weise verwendete Mauspalettenschalter bieten dem Benutzer Auswahlmöglichkeiten an, die sich gegenseitig ausschließen.

Woran könnte das liegen?