[poli-smen]

Сообщение от UnrealFire

вот так?

Код:

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
 edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption;
end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
 edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption;
end;
...

Конечно же нет.

Делаешь один такой обработчик:

Код:

procedure TForm1.SpeedButtonNumberClick(Sender: TObject);
begin
  edit2.Text:=edit2.Text + (Sender as TSpeedButton).Caption;
end;

И потом в инспекторе объектов на вкладке Events привязываешь его ко всем цифровым кнопкам. Т.е. вместо десятка похожих обработчиков (каждый на свою кнопку), у тебя будет один обработчик который будет работать для любой цифровой кнопки.