Delphi中没有vector怎么来代替这个

例一：  
  动态数组  
  var   fields:   array   of   integer;  
   
  Setlenght(fields)//定义长度  
   
   
   
  例二：  
  var  
  button:array   of   TButton;  
  i,rows:integer;  
  begin  
  rows:=10;  
  SetLength(button,rows);  
  for   i:=0   to   Rows-1   do  
      begin  
              button[i]:=TButton.Create(self);  
              with   button[i]   do  
                begin  
                  Parent:=form1;     //此行必不可少,否则控件在屏幕显示不出  
                  top:=i*40;  
                  width:=60;  
                  height:=20;  
                  left:=50;  
                end;  
      end;  

 

TStringList