高手们。一个小错误请帮忙看看！！！急

Question

procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStrings;
 i: Integer; begin
 for   i   :=   sl.Count   -   1   downto   0   do
  if   Pos('T1=',   sl[i])   =   0   then   sl.Delete(i);
 Memo1.Lines.Clear;
   for   i   :=   0   to   sl.Count   -   1   do Memo1.Lines.Append(sl.ValueFromIndex[i]);
 Memo2.Text:=copy(memo3.Text,1,11);
end;
end.执行后会报这样错误！  “Access violation at address 0044FBC3 in module 'Project2.exe'. Read of address 8BD88B67".. 怎么回事啊？？？