// Полный код Модуля.
// -----------------------------------------------------------
// Вы должны поместить этот код в модуль с именем Unit1 и с формой
// названную Form1, которая имеет событие OnCreate названное FormCreate.

unit Unit1;

interface

uses
  Forms, Dialogs, Classes, Controls, StdCtrls, Windows;

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

var
  Form1: TForm1;

implementation
{$R *.dfm} // Вложение определений формы

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Использование Self для идентификации формы позволяя нам
  // установить некоторые атрибуты формы
  Self.Caption := 'Test program';
  Self.Visible := True;
end;

end.