type
  TArrayString = array of string;  //定义数组类型  !!
procedure TForm1.Button1Click(Sender: TObject);
var
  aa:TArrayString; //声明一个数组  ,等同于 aa : array of string;
begin
  SetLength(aa, 3);   //首先应该设定数组aa的长度即元素数
  aa[0] := '第一个元素'; //赋值
  aa[1] := '第二个元素';
  aa[2] := '第三个元素';
  ShowMessage(Format('%s'#10'%s'#10'%s'#10,[aa[0],aa[1],aa[2]]));//看一下
end;