[GriLab]

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

Код:

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;