再運行，Test Case通過！第一個任務完成了。注意上面代碼中的repeated，當流水號到了結束值時，應遞進更高位。
任務列表
支持可循環的數字序列（'001’-'999’）
支持可循環的字母序列（'A’-'Z’）
支持常量代碼（'KA’）
支持字母序列和數字序列組合（KA001A001）
接下來我們分別實現字母序列和常量代碼流水號：
TTestLetterSerialNumberGenerator
1procedure TTestLetterSerialNumberGenerator.TestNextSerialNumber;
2var
3 letter: Char;
4begin
5 for letter :='A'to'Y'do
6 begin
7 CheckEquals(Chr(Ord(letter) +1), fGenerator.NextSerialNumber(letter));
8 end;
9 CheckEquals('A', fGenerator.NextSerialNumber('Z'));
10end
任務列表
支持可循環的數字序列（'001’-'999’）
支持可循環的字母序列（'A’-'Z’）
支持常量代碼（'KA’）
支持字母序列和數字序列組合（KA001A001）
TTestConstantCodeSerialNumberGenerator
1procedure TTestConstantCodeSerialNumberGenerator.TestNextSerialNumber;
2begin
3 CheckEquals('KA', fGenerator.NextSerialNumber('KA'));
4end
任務列表
支持可循環的數字序列（'001’-'999’）
支持可循環的字母序列（'A’-'Z’）
支持常量代碼（'KA’）
支持字母序列和數字序列組合（KA001A001）
