这段代码能优化吗 ？(10分)

Str ='This is the No1'+#9 + 'This is the No2'+ #9 ....
以 #9 间隔的字符串 。

Function GetArray(Str: String): variant;
Var
s1 :String ;
i,j :integer ;
a :array of string ;
begin
i :=Pos(#9,Str) ;
SetLength(a,100);
j :=0 ;
while i<>0 Do
Begin
s1:= Copy(Str,1,i-1) ;
Str :=Copy(Str,i+1,Length(Str)) ;
i :=Pos(#9,Str) ;
a[j] :=s1 ;
j:=j+1 ;
End ;
SetLength(a,j);
Result :=a ;
end;
因为将在整个文件中读取和写入数据库 。能优化将是件大好事 。
就这么多分了，不要见怪。

while i<>0 Do
Begin
j:=j+1 ;
a[j] := Copy(Str,1,i-1) ;
Str :=Copy(Str,i+1,Length(Str)) ;
i :=Pos(#9,Str) ;
End ;

接受答案了.