一个简单屏蔽傻逼的小程序，帮忙看下哪错了？

var
 s:string;
 len:integer;
 i:integer;
begin
 s:=edit1.Text;
 len:=length(s);
 for i:=1 to len do
 begin
      if((s[i]='S')and([i+1]='B'))then
          showMessage('请文明发言!');
 end;

[解决办法]
for i:= 1 to len-1 do。。注意别溢出。。
[解决办法]
var
s:string;
len:integer;
i:integer;
begin
s:=edit1.Text;
len:=length(s);
for i:=1 to len do
begin
if((s[i]='S')and(s[i+1]='B'))then
showMessage('请文明发言!');
end;
[解决办法]
这个屏蔽也太简单了吧！如果就这么简单，还可以这样写，不用循环
if POS('SB',UpperCase(Trim(Edit1.text))) > 0 then
ShowMessage('请文明发言');

POS函数就是判断子串'SB'在不在Edit1.Text中。
UpperCase就是将所有字转化为大写。