我用TStringList提示太多的局部常量，怎么办
我用TStringList代码如下
sli.Add('白日依山尽，');
sli.Add('黄河入海流。');
sli.Add('欲穷千里目，');
sli.Add('更上一层楼。');
.....这样的有个2000条左右
[Error] Unit2.pas(1936): Too many local constants. Use shorter procedures
[错误] Unit2.pas（1936）：太多的局部常量。使用较短的程序

这个怎么解决呀。

最好不要放在别的文档里，我想生成的文件只有一个EXE最好了。
[解决办法]

Const
  psText : String = '白日依山尽，'#13#10 +
                    '黄河入海流。'#13#10 + 
                    .....
                    ;
....
begin
  ...
  sli.Text := psText;
  ...
end;

也可以：
sli.Text := 
'白日依山尽，'#13#10 +
'黄河入海流。'#13#10 + 
.....
;