Frage zu SpeedButton->Down

[Drafl]

Ich möchte gern einen TSpeedButton mit der linken und mittleren Maustaste klicken können. Das klappt, aber bei der mittleren Maustaste wird der Button nicht "gedrückt", es passiert nur einfach was in SpeedButton1MouseDown() steht.
Wie kann man denn das "runterdrücken" in Gang setzen?

void __fastcall TForm1::SpeedButton1MouseDown(TObject *Sender, TMouseButton Button,
		  TShiftState Shift, int X, int Y)
{
	SpeedButton1->Down = true; // damit nicht
}

[kpeter]

void __fastcall TForm1::SpeedButton1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if (Shift.Contains(ssMiddle)) {
        SpeedButton1->GroupIndex = 1;
        SpeedButton1->AllowAllUp = true;
        SpeedButton1->Down = true;
    }
}
//---------------------------------------------------------------------------

Lies bitte in der Hilfe zu GroupIndex und AllowAllUp nach...