[GriLab]

Всем спасибо. Сделал через функцию:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

function GetNextValue(const Value: String): String; const   Symbols: String = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; var   S1, S2, S3, S4, L: Integer; begin   if Value = 'ZZZZ' then Exit;    S1 := Pos(Value[1], Symbols);   S2 := Pos(Value[2], Symbols);   S3 := Pos(Value[3], Symbols);   S4 := Pos(Value[4], Symbols);   L := Length(Symbols);   Inc(S1);   if S1 > L then   begin     S1 := 1;     Inc(S2);     if S2 > L then     begin       S2 := 1;       Inc(S3);       if S3 > L then       begin         S3 := 1;         Inc(S4);         if S4 > L then           WriteLn('Limit reached!');       end;     end;   end;   Result := Symbols[S1] + Symbols[S2] + Symbols[S3] + Symbols[S4]; end;