[Лунтик-Некрофил]

Немного не то, что я ожидал. Спасибо за объяснение удаления...
Но как записать обработчиг onclick или click(хз как правильно, поэтому и спрашиваю) для созданных кнопок? Т.е. для одной вручную созданной кнопки пишется например

Код:

edit1.text:=button1.caption;

, то как мне записать его для всех?

[Asinkrit]

Сначала опиши процедуру отработки нажатия кнопки, к примеру:

Код:

  procedure ButtonClick(Sender: TObject);
  begin
  if (Sender is TButton) then       
    begin
      //делаем что-то, 
      //в (Sender as TButton) - наша кнопка, к примеру если хочешь текст поменять, то (Sender as TButton).caption := '*';
    end;
  end;

Дальше, когда в цикле создаешь кнопки, присваивай им эту процедуру отбработки нажатия;

Код:

  ...
  Button.OnClick:=ButtonClick;
  ...

[Лунтик-Некрофил]

Ругается на

Код:

Button.OnClick:=ButtonClick;

method pointer and regular procedure

[Asinkrit]

Пропиши функцию к форме в private, и все ок будет.

Код:

  TForm1 = class(TForm)
    ...
  private
    procedure ButtonClick(Sender: TObject);
  ..
  end;

Сама функция:

Код:

  procedure TForm1.ButtonClick(Sender: TObject);
  begin
  if (Sender is TButton) then
    begin
    ...
    end;
  end;

[Лунтик-Некрофил]

Спасибо, помог) дальше думаю сам разберусь)