动态数组…求助(55分)

var
  Temp:array of string;
  strstr,strRes,strTemp:string;
  i,number:integer;
begin
  label2.caption:='';
  //由控件内取字符串
  strstr:=edit1.text;
  strstr:=trim(strstr);
  number:=0;
  //去除所有的tab键，chr(9)
  for i:=1 to length(strstr) do
  begin
    strtemp:=copy(strstr,i,1);
    if strtemp=chr(9) then
 strtemp:=' ';
    strres:=strres+strtemp;
  end;
  strstr:=strres;
  setlength(temp,2);
  while pos(' ',strstr)<>0 do
    begin
      number:=number+1;
      i:=pos(' ',strstr);
      strres:=copy(strstr,1,i-1);
      setlength(temp,NUMBER+1);
      temp[high(temp)]:=strres;
      form1.Caption :=inttostr(high(temp));
      delete(strstr,1,i);
      strstr:=trim(strstr);
    end;
    number:=number+1;
    SETLENGTH(TEMP,number+1);
    TEMP[high(temp)]:=STRSTR;
    //以下语句为输入，较验
    FOR I:=1 TO number do
      label2.caption:=LABEL2.CAPTION + 'TEMP['+inttostr(i)+']='+TEMP[I]+#13#10;
  end;

var temp:array of string;
    test,i:integer;
    str,str1,str2:string;
begin
  str:=label1.caption;
  setlength(temp,2);
  str:=trim(str);
  //清除tab chr(9)
  for i:=1 to length(str) do
    begin
      str2:=copy(str,i,1);
      if str2<>#9 then
 str1:=str1+str2 else
 str1:=str1+' ';
    end;
  str:=str1;
  test:=1;
  while length(str)>0 do
    begin
      str1:=copy(str,1,1);
      if (str1<>' ') then
        begin
          temp[test]:=temp[test]+str1;
          delete(str,1,1);
        end
      else
        begin
          str:=trim(str);
          test:=test+1;
          setlength(temp,test+1);
        end;
    end;
  //输出较验
  for i:=1 to test do
 label2.caption:=LABEL2.CAPTION + 'TEMP['+inttostr(i)+']='+TEMP[I]+#13#10;
end;