//**********
Пример кода : Простой пример 
// Полный код Модуля.
// -----------------------------------------------------------
// Вы должны поместить этот код в модуль с именем 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} // Include form definitions

Function GetSum(a, b : Integer) : Integer;
begin
  // Сложение двух чисел, и возврат этого значения
  Result := a + b;
end;

// Подпрограмма On Create главной формы - наша основная программа
procedure TForm1.FormCreate(Sender: TObject);
var
  total : Integer;
begin
  // Показ суммы нескольких пар чисел
  total := GetSum(1,2);
  ShowMessageFmt('%d + %d = %d',[1,2,total]);

  total := GetSum(62,444);
  ShowMessageFmt('%d + %d = %d',[62,444,total]);
end;

end.

//*********
Пример кода : Иллюстрация function и function 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}

// В строке функций
Function MaxValue(a, b : Integer) : Integer;
begin
  // Возвращение наибольшего из 2-х чисел
  if a > b
  then Result := a
  else Result := b;
end;

Function MinValue(a, b : Integer) : Integer;
begin
  // Возвращение наименьшего из 2-х чисел
  if a 
  then Result := a
  else Result := b;
end;

// Основная линия кода
procedure TForm1.FormCreate(Sender: TObject);
type
  TNumberFunc = Function(a, b : Integer) : Integer;

var
  numberFunc : TNumberFunc;
  a, b, c : Integer;

begin
  // Использование функции MaxValue непосредственно
  a := 3;
  b := 6;
  c := MaxValue(a, b);
  ShowMessage('Прямой запрос к MaxValue :');
  ShowMessageFmt('Max из %d и %d - %d',[a,b,c]);

  // Теперь вызываем её косвенно
  numberFunc := MaxValue;
  c := numberFunc(a, b);
  ShowMessage('Косвенный запрос к MaxValue :');
  ShowMessageFmt('Max из %d и %d - %d',[a,b,c]);

  // И вызываем её снова для функции MinValue
  numberFunc := MinValue;
  c := numberFunc(a, b);
  ShowMessage('Косвенный запрос к MinValue :');
  ShowMessageFmt('Min из %d и %d - %d',[a,b,c]);
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;
    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
  // Сохранение переданной строки
  self.name := name;
end;

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

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

var
  simple   : TSimple;
  nameFunc : TNameFunc;

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

  // Показываем имя объекта
  ShowMessage('Имя обращённое непосредственно= '+simple.GetName);

  // Теперь обращаемся к этому методу косвенно
  nameFunc := simple.GetName;

  // Показываем имя объекта
  ShowMessage('Имя обращённое косвенно= '+nameFunc);
end;
end.