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

unit Unit1;

interface

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

type
  // Класс с перезагруженными методами
  TRectangle = class
  private
    coords: array[0..3] of Integer;
  public
    constructor Create(left, top, right, bottom : Integer); Overload;
  published
    // Только одна версия перезагруженного метода может быть published
    constructor Create(topLeft, bottomRight : TPoint); Overload;
  end;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Версия 1 конструктора: берет целые числа как значения координат
constructor TRectangle.Create(left, top, right, bottom: Integer);
begin
  // Сохранение переданных значений
  coords[0] := left;
  coords[1] := top;
  coords[2] := right;
  coords[3] := bottom;
end;

// Версия 2 конструктора: берет точки как значения координат
constructor TRectangle.Create(topLeft, bottomRight: TPoint);
begin
  // Сохранение переданных значений
  coords[0] := topLeft.X;
  coords[1] := topLeft.Y;
  coords[2] := bottomRight.X;
  coords[3] := bottomRight.Y;
end;

// Основная линия кода
procedure TForm1.FormCreate(Sender: TObject);
var
  rect1, rect2   : TRectangle;
  point1, point2 : TPoint;

begin
  point1 := Point(122,133);
  point2 := Point(144,155);

  // Создание двух прямоугольников, используя два различных конструктора
  rect1 := TRectangle.Create(22, 33, 44, 55);
  rect2 := TRectangle.Create(point1, point2);
end;

end.

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

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.close;
end;

// В строке перезагруженных функций
function MaxValue(a, b : Byte) : string; Overload;
begin
  if a > b
  then ShowMessageFmt('%d byte >  %d',[a,b])
  else ShowMessageFmt('%d byte <= %d',[a,b]);
end;

function MaxValue(a, b : Integer) : string; Overload;
begin
  if a > b
  then ShowMessageFmt('%d integer >  %d',[a,b])
  else ShowMessageFmt('%d integer <= %d',[a,b]);
end;

function MaxValue(a, b : Extended) : string; Overload;
begin
  if a > b
  then ShowMessageFmt('%f extended >  %f',[a,b])
  else ShowMessageFmt('%f extended <= %f',[a,b]);
end;

function MaxValue(a, b : string) : string; Overload;
begin
  if a > b
  then ShowMessageFmt('''%s'' string >  ''%s''',[a,b])
  else ShowMessageFmt('''%s'' string <= ''%s''',[a,b]);
end;

// Основная линия кода
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Демонстрация различных вызовов, используя то же самое название
  MaxValue(15  , 23);
  MaxValue(1500, 23);
  MaxValue(15.0, 23.0);
  MaxValue('15', '23');
end;
end.