type
  TCounter = class
  public
    Count: Integer;
    procedure IncBy(Value: Integer);
      overload;
    procedure IncBy(Value,
      Amount: Integer); overload;
  end;

procedure TCounter.IncBy(Value: Integer);
begin
  Count := Count + Value;
end;

procedure TCounter.IncBy(Value,
  Amount: Integer);
begin
  Count := Count + Value * Amount;
end;

var
  Counter: TCounter;
begin
  Counter := TCounter.Create;

  Counter.IncBy(1);
  //counter.Count is 1
  WriteLn('count is ', Counter.Count);

  Counter.IncBy(2, 5);
  //counter.Count is 11
  WriteLn('count is ', Counter.Count);
end.