Вопрос SpeedButton-а...???

[Altera]

Привет программисты!!!
У меня вопрос. Как использовать свойство down у tSpeenButton, когда кнопка не состоит не в каких группах. (groupIndex := 0).

Вод код, которуй не деёствует

procedure Tmain_form.hmMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if s then begin hm.Down := false; s := false;
   end
   else begin hm.Down := true; s := true; end;
end;

Здесь s: boolean, hm: tSpeenButton;

Короче, как использовать спид батон не как переключатель, а как выключатель?

[alexBlack]

А что мешает сделать одну кнопку в группе ?

AllowUp := true
GroupIndex := 1

и кнопка будет включаться и выключаться

[Altera]

Спасибо! Я не знал!

[mihali4]

if s then begin hm.Down := false; s := false;
end
else begin hm.Down := true; s := true; end;

А зачем такая тягомотина? Один единственный оператор ее заменит:
hm.Down := not hm.Down;