var
  num:array[0..9] of Integer;
  i:integer;
begin
  caption:='';
  for I := 0 to 10 - 1 do
    num[i]:=i;
  for i := 0 to 10 - 1 do
    caption:=caption+IntToStr(i)
end;


这样？我直接丢到form的caption上去了

一次性输出的意思是？ 看一下是不是这个意思：

var
  Arr : array[0..9] of integer = (0,1,2,3,4,5,6,7,8,9);

procedure TForm1.Button1Click(Sender: TObject);
var Str : string;
begin
  Str := Format('%d%d%d%d%d%d%d%d%d%d',[Arr[0],Arr[1],Arr[2],Arr[3],Arr[4],Arr[5],Arr[6],Arr[7],Arr[8],Arr[9]]);
  Showmessage(Str);
end;