for j:=0 to 1 do
 begin
 RunTimeButtons[j] := TButton.Create(nil);
     with RunTimeButtons[j] do
     begin
       Parent  := StForm;
       Caption :=CapLs[i];inc(i);
       Top     :=80;
       Tag     := j;
       Left:=50+(Width+10)*j;
       {Assign a OnClick handler}
       OnClick := RunTimeButtonClick;
       Visible := True;
       Show;
     end;
 end;

procedure StForm.RunTimeButtonClick(Sender: TObject);

TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
  private

    { Private declarations }
  public
     procedure RunTimeButtonClick(Sender: TObject);
    { Public declarations }
  end;

StForm:TForm;

StForm:TForm1;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    b: TButton;
  public
    { Public declarations }
    procedure ClickButton(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure ЭТО СПАМ - ОТПРАВЬТЕ ЖАЛОБУ (синий квадрат)(Sender: TObject);
begin
  ShowMessage(IntToStr((Sender as TButton).Tag));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to 5 do
  begin
    b:= TButton.Create(Self);
    with b do
    begin
      Name:= 'Button' + IntToStr(i);
      Caption:= IntToStr(i);
      Height:= 25;
      Width:= 50;
      Tag:= i;
      Top:= 10;
      Left:= 10 + (b.Width + 10)* i;
      Parent:= Self;
      OnClick:= ClickButton;
//      ModalResult:= mrOK;
    end;
  end;
end;

end.