Вы видимо неправильно события обрабатываете. Судя по описанию, вам нужно обработать только событие OnClick:
Код:
1 2 3 4 | procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if SpeedButton1.Down then Edit1.Text := '10' else Edit1.Text := '0';
end;
|
Предварительно выставив свойство AllowAllUp в True и GroupIndex не равном 0