type
  TMenuItemHelper = class helper for TMenuItem
  public
    function AddSeparator: TMenuItem;
  end;

implementation

function TMenuItemHelper.AddSeparator: TMenuItem;
begin
  Result := TMenuItem.Create(Owner);
  Result.Caption := '-';
  Self.Add(Result);
end;