Повторение процедуры

[Firebird]

Здравствуйте. Я новичок. Имеется процедура обработки события Button1.Click: при нажатии кнопки на ней появляется цифра 1, при повторном нажатии - 2 и т.д. Надо, чтобы 50 кнопок вели себя так же. Не хочется писать еще 49 процедур, в тексте которых по сути меняется лишь номер кнопки. Как сделать без переписывания? Если возможно - примерчик

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
var
  button: tbutton;
begin
  button := sender as tbutton;
  button.Caption := inttostr(strtoint(button.caption) + 1);
end;

Назначить ее на все кнопки.
Не забыть поставить изначальный текст на кнопке "0" (без кавычек).

Или такой вариант с автогенерацией кнопок:

procedure TForm1.increase(Sender: TObject);
var
  button: tbutton;
begin
  button := sender as tbutton;
  button.Caption := inttostr(strtoint(button.caption) + 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin
  for i:=1 to 10 do
    for j:=1 to 5 do
    with tbutton.Create(self) do
    begin
      caption := '0';
      parent := self;
      onclick := increase;
      top := height * j;
      left := width *i - width + 10;
    end;
end;

(Правда, никакого освобождения ресурсов во время выполнения не предусмотрено)

[Firebird]

Спасибо большое за подробный ответ.

[BDA]

Пожалуйста. Не понял последнего вопроса

[Firebird]

Это я напутал . Еще 1 вопрос заинтересовал. Как можно в процедуре без перечисления присвоить 50 кнопкам одинаковое название, например, "А"?

[sariman]

Т.е. имена кнопок? Никак, так, как компоненты не могут быть с одинаковыми названиями, а если текст кнопок, созданных динамически, то:

procedure TForm1.Button5Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 1 to 50 do
    Buttons[I].Caption := 'А';
end;

[phomm]

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

with tbutton.Create(self) do ...

(Правда, никакого освобождения ресурсов во время выполнения не предусмотрено)

Указанный код автоматом управляет и удалением, ибо кнопки хранятся у формы (self , который тут будет AOwner) в "массивном" свойстве Components и освобождаются в деструкторе формы.