简单的问题,大家进来接分~~~

[大王带我来巡山]

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
thetxtfile:textfile;
st,stest: TStringList;
i,j,k:integer;
a: array[1..10] of string;
begin
st:=TStringList.Create;
st.LoadFromFile('example.dat');
stest:=TStringList.Create;
stest.LoadFromFile('test.dat');
//i:=stest.Count;
//if i<>0 then
//for j:=1 to i do
//stest.Delete(j);
for j:=1 to 9 do
begin
i:=st.Count;
Randomize;
k:=Random(i);
a[j]:=st.Strings[k];
stest.Strings[j]:=a[j];
st.Delete(k);//好像问题是由这里引起的
end;
st.savetofile('example.dat');
stest.savetofile('test.dat');
st.free;
stest.Free;
assignfile(thetxtfile,'test.dat');
reset(thetxtfile);
while not Eof(thetxtfile) do
begin
Readln(thetxtfile,s);
Memo1.Lines.Append(s);
end;
closefile(thetxtfile);
end;
经过修改了,可是上面程序运行时候提示"列表索引越界(3)",代码上问题出在那?