此段代码为什么不能找出需要的字符？解决方法

此段代码为什么不能找出需要的字符？
找出a1中的b1，并把所有的b1显示到edit3里
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var a1,b1:string;
 i:integer;
begin
  a1:=edit1.Text;
  b1:=edit2.Text;
  i:=pos(b1,a1);
while i<=length(a1) do
  begin
  edit3.Text:=copy(a1,i,1);
  i:=i+1;
  end;
end;

end.


[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
s : array of char;
a1, b1 : string; 
i : integer;
begin
a1 := edit1.text;
b1 := edit2.text;
setlength(s,length(a1)-1);
edit3.clear;
for i:=0 to length(a1)-1 do
begin
if b1 = s[i] then
edit3.text := edit3.text + b1;
end;
end;
end. 

我随便写的，没测试。你试试/
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);

var
a1,b1:string;
i:integer;
begin
a1:=edit1.Text;
b1:=edit2.Text;
i := 0 ;
Edit3.clear;
while i <=length(a1) do
begin
i:=pos(b1,a1);
edit3.Text:=edit3.Text + Copy(a1,i,1);
a1 := rightstr(a1, (Length(a1)-i));
end;

end;