如何在random 随机数前面加字母？

Question

例如：我想生成这样的。
A10343
A51345
A13476
A.....这是我现在的代码
procedure TForm1.Button1Click(Sender: TObject);
var
n,i,k:integer;
t:String;
begin
Randomize;
n:=Random(9999999);
t:=inttostr(n);
k:=length(t);
for i:=1 to (7-k) do t:='0'+t; //补0
memo1.lines.add(t);
end;
还有我现在按一下只生成一个随机数，如何生成100个呢？刚接触编程，很多地方不懂，大家帮帮忙哈。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  n, i, j, k: Integer;
  t: string;
begin
  for j := 1 to 100 do {循环生成100个随机数}
  begin
    Randomize;
    n := Random(9999999);
    t := inttostr(n);
    k := length(t);
    for i := 1 to (7-k) do t := '0' + t; {补0}
    t := 'A' + t; {加字母前缀A}
    memo1.lines.add(t);
  end;
end;