VCL

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Label1.Caption := 'Кнопка нажата';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent);
begin
  Label1.Font.Style := [fsBold];
  inherited;
end;

end.

procedure TForm1.Button1Click(Sender: TComponent);
var
  L: TLabel;
  S: TStaticText;
begin
  S := TStaticText.Create(Self);
  S.Caption := 'Это TStaticText        ';
  S.Top := 10;
  S.Left := 10;
  S.Parent := Self;
  L := TLabel.Create(Self);
  L.Caption := 'Это TLabel          ';
  L.Top := 10;
  L.Left := 10;
  L.Parent := Self;
  L.BringToFront;
end;

TSomeComponent = class(TComponent)
private
  FTag2: Integer;
public
  property Tag2: Integer read FTag2 write FTag2 default 5;
end;

procedure MyClick(Sender: TObject);
begin
  ...
end;

...

Button1.OnClick := MyClick;

var
  I: Integer;

for I := 0 to ComponentCount – 1 do
  if {Проверка условия} then
    Components[I].Free;

var
  I: Integer;

I := 0;
while I < ComponentCount do
begin
  if {Проверка условия} then
    Components[I].Free;
  Inc(I);
end;

var
  IL1, IL2: TImageList;

IL1 := TImageList.Create(Self);
{Инициализация свойств IL1}

IL2 := TImageList.Create(nil);
{Инициализация свойств IL2}

var
  I: Integer;

for I := 0 to ControlCount – 1 do
  if Controls[I].Parent = Panel1 then
    Controls[I].Visible := False;

var
  MyFont: TFont;
begin
  MyFont := TFont.Create;
  // Здесь идут присваивания свойств MyFont
  Canvas.Font := MyFont;
  MyFont.Free;
  Canvas.TextOut(100, 100, ‘Text’);
end;

Btn := TButton.Create(nil);
// Присваиваем свойства Btn
Btn.Parent := Self;