请教简练算法6位数字排列情况

Question

6位数字每位都是从0到9，请问怎么显示出来啊？
 FOR I:=0 TO 9 DO
 '''
'''
SHOWMWSSAGE(S);

Answer 1

是不是要showmessage(inttostr(6位数字))

Answer 2

输出随意6位从0到9的数？
var
i:Integer;
s:string;
begin
for i:=0 to 5 do
begin
  Randomize;
  s:=s+IntToStr(Random(9));
end;
ShowMessage(s);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
 for i :=0  to 9 do begin
  ShowMessage(FormatFloat('000000',i));
 end;
end;{
000000
000001
000002
000003
000004
000005
000006
000007
000008
000009
}