Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 37 стр.

                               38
  Constructor Init;
  Function GetX:real;
  Procedure SetX(NewX:real);
  end;

  PAdd=^TAdd;
  TAdd=object(TObject) {устройство сложения}
  Procedure HandleEvent(Var Event:TEvent);virtual;
  Procedure Add;virtual;
  end;

  PSub=^TSub;
  TSub=object(TObject) {устройство вычитания}
  Procedure HandleEvent(Var Event:TEvent);virtual;
  Procedure Sub;virtual;
  end;

  PMult=^TMult;
  TMult=object(TObject) {устройство умножения}
  Procedure HandleEvent(Var Event:TEvent);virtual;
  Procedure Mult;virtual;
  end;

  PDel=^TDel;
  TDel=object(TObject) {устройство деления}
  Procedure HandleEvent(Var Event:TEvent);virtual;
  Procedure Del;virtual;
  end;

IMPLEMENTATION
{приведена реализация только некоторых методов}
Constructor TObject.Init;
begin
owner:=nil;
end;

Procedure TObject.ClearEvent(Var Event:TEvent);
begin
Event.What:=evNothing;
end;