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

unit Unit1;

interface         // Определяет внешнюю видимость этого модуля

uses
  Forms;

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

var
  Form1: TForm1;

Implementation   // Осуществляет Интерфейс этого модуля
{$R *.dfm}       // Включить определения формы

uses             // Частные модули
  Dialogs;

var              // Частные переменные
  msg : string;

const            // Частные константы
  MSG_TEXT = 'Hello World';

// Частная подпрограмма - не предопределенный в разделе Интерфейса
procedure SayHello;
begin
  // Скажем привет Миру
  msg := MSG_TEXT;
  ShowMessage(msg);
end;

// Подпрограмма, предопределенная в разделе Интерфейса
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Сказать привет
  SayHello;
end;

end.