求救！！！！，求救！！！请教大家一个关于字符连接的问题！！！！

Question

我做一个考场和考生信息录入的功能，我先要新建一个考试号，
我想添第一个学生的信息时，自动生成学生的考号是：考试号＋四位数，这四位数从0001开始。
比如我新建的考试号是11，然后有120个学生报考，那么第一个学生的考号自动生成就是110001，录入第二学生时自动生成第二个考号是110002，最后一个是110120
考试号我用的是DBEDIT,取名为KSH_DBEDIT,学生考号也用的是DBEDIT,取名为KH_DBEDIT,
请问大家这个功能怎么实现，我实在想不出编程解决的办法了，请大家务必救救小弟#@@！！！@@@

Answer 1

var a, i:Dword;
    S: String;begin
  a := 110000; 
  for i := 1 to 120 do
   begin
    a := a + i;
    S := InttoStr(a);
   end;end;

Answer 2

SORRY  a := a + 1; 改为 Inc(a);

Answer 3

function getStudentNumList(examNumTxt:string;numOfStuden:integer):TStrings;
var
  examNum:integer;
  NumList:TStrings;
  i:integer;
begin
  NumList:=TStringList.Create;
  examNum:=StrToInt(Trim(examNumTxt));
  for i:=1 to numOfStudent do
    NumList.Add(IntToStr(examNum*10000+i);
  result:=NumList;
end;调用:
var
  KSList:TStrings;KSList:=TStringList.Create;KSList:=getStudentNum(KSH_DBEDIT.Text,考生人数);