Компилятор

button1.click
create Tbutton
with
.procedure:= ini.readstring("buttons","this.button","edit1.text:= "cool";edit1.visible:= true;")
Это то что будет делать Кнопка
.name:= ini.readstring("buttons","this.button","no name")
ЕЕ название

button1.click;
button2.onclick:= memo1.text;

procedure TForm1.FormCreate(Sender: TObject);
var
  Button: TButton;
begin
  Button := TButton.Create(self);
  Button.Parent := Form1;
  Button.Left := 5;
  Button.Top := 5;
  Button.Caption := 'Кнопка';
  а как дописать
  onclickbutton.после begin перед end; := memo1.text
  Button.OnClick := OnClickButton;
end;
 
procedure TForm1.OnClickButton(Sender: TObject);
begin
  Showmessage('..');

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure BtnProc1(Sender: TObject);
    procedure BtnProc2(Sender: TObject);
    procedure BtnProc3(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BtnProc1(Sender: TObject);
const
  SelfName = 'TForm1.BtnProc1()';
var
  Btn : TButton;
begin
  Btn := Sender as TButton;
  ShowMessage('Обработчик ' + SelfName + ' вызван для объекта: ' + Btn.Name);
end;
 
procedure TForm1.BtnProc2(Sender: TObject);
const
  SelfName = 'TForm1.BtnProc2()';
var
  Btn : TButton;
begin
  Btn := Sender as TButton;
  ShowMessage('Обработчик ' + SelfName + ' вызван для объекта: ' + Btn.Name);
end;
 
procedure TForm1.BtnProc3(Sender: TObject);
const
  SelfName = 'TForm1.BtnProc3()';
var
  Btn : TButton;
begin
  Btn := Sender as TButton;
  ShowMessage('Обработчик ' + SelfName + ' вызван для объекта: ' + Btn.Name);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  //Случайным образом переназначенаем обработчик для второй кнопки.
  Randomize;
  case Random(3) of
    0 : Button2.OnClick := BtnProc1;
    1 : Button2.OnClick := BtnProc2;
    2 : Button2.OnClick := BtnProc3;
  end;
end;
 
end.

FreeAndNil(Btn); //Btn.Free; //Но FreeAndNil(Btn) - лучше. :-)

procedure TForm1.rclick(Sender: TObject; var Key: Char);
begin
if key = '02' then but:=Sender as TButton;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);