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

unit Unit1;

interface

uses
  // Модуль System не нуждается в определении
  Forms, Dialogs;

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

var
  Form1: TForm1;

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

Procedure ShowSum(a, b : Integer);
var
  total : Integer;
begin
  // Сложение двух чисел
  total := a + b;

  // Показ суммы
  ShowMessageFmt('%d + %d = %d',[a,b,total]);
end;

// Подпрограмма On Create основной формы - наша основная программа
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Показ суммы нескольких пар чисел
  ShowSum(1,2);
  ShowSum(245,62);
end;

end.

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

unit Unit1;

interface

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

type
  // Сам класс формы
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// В строку функций
Procedure ShowMsg(msg : string);
begin
  ShowMessage(msg);
end;

Procedure ShowLongMsg(msg : string);
begin
  ShowMessage('Текст сообщения = '+msg);
end;

// Основная линия кода
procedure TForm1.FormCreate(Sender: TObject);
type
  TShowProc = Procedure(msg : string);

var
  showProc : TShowProc;

begin
  // Использование ShowMsg косвенно
  ShowMessage('Используя ShowMsg косвенно :');
  ShowMsg('Привет Мир');

  // Использование процедуры ShowMsg непосредственно
  ShowMessage('Используя ShowMsg непосредственно :');
  showProc := ShowMsg;
  showProc('Снова привет');

  // Использоване ShowLongMsg косвенно
  ShowMessage('Используя ShowLongMsg косвенно :');
  showProc := ShowLongMsg;
  showProc('Снова привет');
end;

end.

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

unit Unit1;

interface

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

type
  // Определение простого класса
  TSimple = class
  private
    name : string;
  public
    function GetName : string;
    Procedure SetName(name : string);
    constructor Create(name : string);
  end;

  // Сам класс формы
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Создание простого объекта
constructor TSimple.Create(name: string);
begin
  // Save the passed string
  self.name := name;
end;

// Возвращение простого имени
function TSimple.GetName: string;
begin
  Result := name;
end;

// Назначение переданного имени
Procedure TSimple.SetName(name : string);
begin
  self.name := name;
end;

// Основная линия кода
procedure TForm1.FormCreate(Sender: TObject);
type
  TNameProc = Procedure(name : string) of object;

var
  simple   : TSimple;
  nameProc : TNameProc;

begin
  // Создание простого объекта
  simple := TSimple.Create('Brian');

  // И установка имени
  simple.SetName('New name');

  // Показ имени объекта
  ShowMessage('Имя сейчас = '+simple.GetName);

  // Обращение к методу SetName
  nameProc := simple.SetName;

  // И установка имени
  nameProc('Even newer name');

  // Показ имени объекта
  ShowMessage('Имя сейчас = '+simple.GetName);
end;
end.