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

unit Unit1;

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

Uses
  Forms;

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

var
  Form1: TForm1;

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

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

// Частная подпрограмма - не предопределенный в разделе Interface
procedure SayNumber(number : Integer);
begin
  // Показываем число как строку
  // Обратите внимание, что мы явно указываем модуль подпрограммы IntToStr:
  // это модуль SysUtils
  ShowMessage('Number = '+SysUtils.IntToStr(number));
end;

// Подпрограмма, предопределенная в разделе Interface
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Показываем число
  SayNumber(123);
end;

end.