动态数组问题！！！进来看看！！

我的程序这样写：
procedure TForm1.Button1Click(Sender: TObject);
type
  TCWKM=array of string;
var
a:Tcwkm;
i:integer;
begin
for i:=0 to 10 do
  begin
    a[i]:='asdef';
  end;
end;
可点击Button1时，就出错！这是为什么呀？定义动态数组还需要定义什么吗？
高手指教！谢谢！