不用TFindDialog能否实现?

Question

如果是RichEdit1，edit就好实现，不然代码可能会多多！！
先得到其长度，再进行查询；
当返回值是TRUE，就动态生成控件；
procedure ..click(sender:Tobject);
var
  i,j,k:integer;
  F:boolena;
begin
  F：=flase;
  i:=length(RichEdit1.text);
  for j:=0 to i do    
   for k:= 1 to i do
    begin
      if pos(RichEdit1.text,j,k)='sss' then
        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//好像就是pos，回去给你试试
          begin          
             F:=true;
             dosomething...
             exit;
          end;
    end;
end;