type
  //handlers pass the request along
  //the chain
  THandler = class
  private
    FNext: THandler;
    FLimit: Integer;
    FName: string;
  public
    constructor Create(const AName: string;
      ALimit: Integer);
    function SetNext(
      Next: THandler): THandler;
    procedure Handle(Amount: Integer);
  end;

constructor THandler.Create(
  const AName: string; ALimit: Integer);
begin
  FName := AName;
  FLimit := ALimit;
end;

function THandler.SetNext(
  Next: THandler): THandler;
begin
  FNext := Next;
  Result := Next;
end;

procedure THandler.Handle(Amount: Integer);
begin
  if Amount <= FLimit then
    WriteLn(FName, ' approved ', Amount)
  else if FNext <> nil then
    FNext.Handle(Amount)
  else
    WriteLn('nobody approved ', Amount);
end;

var
  Manager, Director: THandler;
begin
  Manager := THandler.Create('manager', 100);
  Director := THandler.Create(
    'director', 1000);
  Manager.SetNext(Director);

  Manager.Handle(50);
  //manager approved 50
  Manager.Handle(500);
  //director approved 500
  Manager.Handle(5000);
  //nobody approved 5000
end.