Arsip: Membuat Tombol saat RunTime

procedure TfDelphiID.tbl_BuatTombolClick(Sender: TObject);
var
liI                               : Integer;
begin
for liI := 1 to 5 do
begin
with TButton.Create( self) do
begin
Top                           := 40 * liI;
Left                          := (fDelphiID.Width - Width) div 2;
Name                          := 'tbl_Tombol' + IntToStr( liI);
Caption                       := 'Tombol ' + IntToStr( liI);
Parent                        := fDelphiID;
onClick                       := tbl_DiClick;
end;
end;
end;
procedure TfDelphiID.tbl_Diclick(Sender: TObject);
begin
ShowMessage( (Sender as TButton ).Caption );
end;