Кратко смысл полиморфизма можно выразить фразой: «Один интерфейс, множество методов».

Полиморфизм — один из трех важнейших механизмов объектно-ориентированного программирования (наряду с инкапсуляцией и наследованием).

Полиморфизм позволяет писать более абстрактные программы и повысить коэффициент повторного использования кода. Общие свойства объектов объединяются в систему, которую могут называть по-разному — интерфейс, класс. Общность имеет внешнее и внутреннее выражение. Внешне общность проявляется как одинаковый набор методов с одинаковыми именами и сигнатурами (типами аргументов и результатов). Внутренняя общность есть одинаковая функциональность методов. Её можно описать интуитивно или выразить в виде строгих законов, правил, которым должны подчиняться методы. Возможность приписывать разную функциональность одному методу (функции, операции) называется перегрузкой метода (функций, операций).

function CreateHandBook...
begin
if Assigned(fHandBook) then
..
    fHandBook.Free //разрушение объекта, в fHandBook остается мусор (1)
..
try
  if not Assigned(fHandBook) then // в случае (1) уловие будет ложным
    fHandBook := TfHandBook.Create(AOwner, ARec); //и эта строчка никогда не будет выполнена (2)
except
  fHandBook.Free; // в случае исключения при выполнении (2) разрушение заведомо несозданного объекта лишено всякого смысла
  fHandBook := nil; // равно как лишена смысла и эта строчка
end;
end;

function CreateHandBook(AOwner: TComponent; ARec: THandBook): Boolean;
begin
if Assigned(fHandBook) then
  if (fHandBook.FRec.ShowType <> ARec.ShowType) or
    (fHandBook.FRec.GoToIndex <> ARec.GoToIndex) then
    begin
      fHandBook.Free;
      fHandBook := nil;
    end
  else
    if not (fHandBook.WindowState in [wsNormal, wsMaximized]) then
      fHandBook.WindowState := wsNormal
    else
      fHandBook.Show;

Result := True;
try
  if not Assigned(fHandBook) then
    fHandBook := TfHandBook.Create(AOwner, ARec);
except
  Result := False;
end;
end;

function CreateHandBook(AOwner: TComponent; ARec: THandBook): Boolean;
begin
Result := True;
if Assigned(fHandBook) then
 if (fHandBook.FRec.ShowType <> ARec.ShowType) or
   (fHandBook.FRec.GoToIndex <> ARec.GoToIndex) then
     FreeAndNil(fHandBook)
 else
   if not (fHandBook.WindowState in [wsNormal, wsMaximized]) then
     fHandBook.WindowState := wsNormal
   else
     fHandBook.Show;

 if not Assigned(fHandBook) then
 try
   fHandBook := TfHandBook.Create(AOwner, ARec);
 except
   Result := False;
 end;
end;

unit uHandBook;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, ComCtrls, ToolWin, DBCtrls, Grids, DBGridEh,
DB, StdCtrls;

type

{ TfHandBook }

TShowHandBook = (shbUnknown, shbRequisite, shbEmployee, shbJobTitle, shbUser, shbRole,
  shbLog, shbPlace, shbPoint, shbTpPoint, shbStreet, shbTpStreet, shbHome,
  shbTpHome, shbPost, shbManagement, shbProperty, shbOtherRem, shbEntrance,
  shbApartment, shbRoom, shbTpRoom);

PHandBook = ^THandBook;
THandBook = packed record
  ShowType: TShowHandBook;
  case Integer of
    0: (
      GoToIndex: Integer);
end;

TfHandBook = class(TForm)
  pnl: TPanel;
  sBtnClose: TSpeedButton;
  sBtnPrint: TSpeedButton;
  sBtnHelp: TSpeedButton;
  tb: TToolBar;
  sbInfo: TStatusBar;
  sb: TStatusBar;
  nv: TDBNavigator;
  tSprt1: TToolButton;
  tBtnFilter: TToolButton;
  grd: TDBGridEh;
  ds: TDataSource;
  procedure FormCreate(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure FormPaint(Sender: TObject);
  procedure FormActivate(Sender: TObject);
  procedure FormResize(Sender: TObject);
  procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormDeactivate(Sender: TObject);
  procedure FormHide(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
private
  { Private declarations }
  FRec: THandBook;
public
  { Public declarations }
  constructor Create(AOwner: TComponent; ARec: THandBook); overload;
end;

function CreateHandBook(AOwner: TComponent; ARec: THandBook): Boolean;

resourcestring
SUnknown = 'Íåèçâåñòíûé ñïðàâî÷íèê';
SRequisite = 'Ñïðàâî÷íèê ðåêâèçèòû ïðåäïðèÿòèÿ';
SEmployee = '';
SJobTitle = '';
SUser = '';
SRole = '';
SLog = '';
SPlace = '';
SPoint = '';
STpPoint = '';
SStreet = '';
STpStreet = '';
SHome = '';
STpHome = '';
SPost = '';
SManagement = '';
SProperty = '';
SOtherRem = '';
SEntrance = '';
SApartment = '';
SRoom = '';
STpRoom = '';

var
fHandBook: TfHandBook;

implementation

uses
{ &#207;&#238;&#228;&#234;&#235;&#254;&#247;&#229;&#237;&#232;&#229; &#228;&#238;&#239;&#238;&#235;&#237;&#232;&#242;&#229;&#235;&#252;&#237;&#251;&#  245; &#236;&#238;&#228;&#243;&#235;&#229;&#233;. }
uDm, IniFiles, uConstants, uDbs;

{$R *.dfm}

function CreateHandBook(AOwner: TComponent; ARec: THandBook): Boolean;
begin
if Assigned(fHandBook) then
  if (fHandBook.FRec.ShowType <> ARec.ShowType) or
    (fHandBook.FRec.GoToIndex <> ARec.GoToIndex) then
    fHandBook.Free
  else
    if not (fHandBook.WindowState in [wsNormal, wsMaximized]) then
      fHandBook.WindowState := wsNormal
    else
      fHandBook.Show;

Result := True;
try
  if not Assigned(fHandBook) then
    fHandBook := TfHandBook.Create(AOwner, ARec);
except
  Result := False;
  fHandBook.Free;
  fHandBook := nil;
end;
end;

constructor TfHandBook.Create(AOwner: TComponent; ARec: THandBook);
begin
inherited Create(AOwner);
FRec := ARec;
case FRec.ShowType of
  shbUnknown:
    begin
      Close;
    end;
  shbRequisite:
    begin
      Caption := SRequisite;
      ds.DataSet := dm.qRequisite;
    end;
else
  begin
    //&#205;&#229;&#232;&#231;&#226;&#229;&#241;&#242;&#237;&#251;&#233; &#226;&#232;&#228; &#226;&#251;&#231;&#251;&#226;&#224;&#229;&#236;&#238;&#227;&#238; &#241;&#239;&#240;&#224;&#226;&#238;&#247;&#237;&#232;&#234;&#232;.
  end;
end;
end;

procedure TfHandBook.FormCreate(Sender: TObject);
begin
if OpenDataSet(ds.DataSet) then
  begin
    //
  end
else
  begin
    //
  end;
end;

procedure TfHandBook.FormShow(Sender: TObject);
begin
//
end;

procedure TfHandBook.FormPaint(Sender: TObject);
begin
//
end;

procedure TfHandBook.FormActivate(Sender: TObject);
begin
//
end;

procedure TfHandBook.FormResize(Sender: TObject);
begin
//
end;

procedure TfHandBook.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
//
end;

procedure TfHandBook.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
end;

procedure TfHandBook.FormDeactivate(Sender: TObject);
begin
//
end;

procedure TfHandBook.FormHide(Sender: TObject);
begin
//
end;

procedure TfHandBook.FormDestroy(Sender: TObject);
begin
//
end;

end.