Zählen mit dem Alphabet

[trifid]

Habe folgende Funktion

Delphi-Quellcode:

   function ErhoeheBuchstabe (sNummer : String) : String;
   begin
      if Length (sNummer) = 1 then
      begin
         if sNummer = 'Z' then
         begin
            sNummer := 'AA';
         end else begin
            sNummer := Chr(Ord(sNummer[1]) + 1);
         end;
      end;
      if Length (sNummer) = 2 then
      begin
         if sNummer[2] = 'Z' then
         begin
            if sNummer[1] = 'Z' then
            begin
               sNummer := 'AAA';
            end else begin
               sNummer := Chr(Ord(sNummer[1]) + 1) + 'A';
            end;
         end else begin
            sNummer[2] := Chr(Ord(sNummer[2]) + 1);
         end;
      end;
      ErhoeheBuchstabe := sNummer;
   end;

die über "Buchstaben" hochzählen soll.

aus A wird B
aus S wird T
aus Z wird AA
aus AS wird AT
aus AZ wird BA
aus YT wird YU
aus ZZ wird AAA

Geht das allgemeiner und elleganter ?