Delphi Excel: Bereich durchnummerieren

[bra]

Delphi-Quellcode:

var
  i: Integer;
  s: String;
begin
  i := 0;
  s := '';
  while xxx do begin
    if s <> [Abteilung] do begin
      s := [Abteilung];
      i := 0;
    end;
    Inc(i);
    // hier Ausgabe
  end;
end;