Ez az egyszerű kis program futásidőben létrehoz négy gombot és egy címkét. A gombok lenyomásakor a címkén megjelenik a lenyomott gomb sorszáma.
A program futtatásához nem kell mást tenned, csak készíts egy új projectet, másold az alábbi szöveget a Unit1-be, és rendeld hozzá FormCreate eseménykezelőt a Form1 OnCreate eseményéhez (dupla kattintás a Formon vagy az Object Inspectorban).

unit Unit1;
interface
uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure ButtonClick(Sender: TObject);
  private
  { Private declarations }
  public 
  { Public declarations }
end;
var
  Form1: TForm1;

implementation

{$R *.DFM}

const
  b = 4; {A létrehozandó gombok száma}
var
  ButtonArray : Array[0..b-1] of TButton; {A Gombokból álló tömb...}
  MessageBox: TLabel; {...és a címke definiálása}

procedure TForm1.FormCreate(Sender: TObject);
var
  loop : integer;
begin
  ClientWidth:=(b*60)+10; {A Form méretének}
  ClientHeight:=65; {meghatározása}
  MessageBox:=TLabel.Create(Self); {A címke létrehozása...}
  MessageBox.Parent:=Self;
  MessageBox.Align:=alTop; {...és tulajdonságainak}
  MessageBox.Alignment:=taCenter; {meghatározása}
  MessageBox.Caption:='Nyomj le egy gombot!';
  for loop:= 0 to b-1 do {A Gombok létrehozása...}
  begin
   ButtonArray[loop]:=TButton.Create(Self);
   with ButtonArray[loop] do
    begin
    Parent :=self; {...és tulajdonságaiknak}
    Caption :=IntToStr(loop); {meghatározása}
    Width :=50;
    Height :=25;
    Top :=30;
    Left :=(loop*60)+10;
    Tag :=loop; {Ez mondja meg, hogy melyik gombot}
    OnClick :=ButtonClick; {nyomtuk le...}
    end;
  end;
end;

procedure TForm1.ButtonClick(Sender: TObject);
var
  t : Integer;
begin
  t:=(Sender as TButton).Tag; {A Gomb azonosítójának megállapítása}
  MessageBox.Caption:='Az '+IntToStr(t)+'. számú gombot nyomtad le.';
end;
end.