循环问题.把我弄头晕了.

//字符串提取过程
 function getstr(Ystr,Mstr:string;istar:byte):string; //从字符串中截取字符串
var s:string;
i:byte;
begin
result:='';
i:=0;
 for i:=0 to length(Ystr) do
    if i<istar then
    delete(Ystr,1,pos(Mstr,Ystr)) else
    break;
s:=copy(Ystr,i-nob-1,pos(Mstr,Ystr)-1);
delete(s,1,length(Mstr)-1);
if s<>'' then
result:=s else
result:=''
end;procedure TForm1.Timer2Timer(Sender: TObject);
var
  Comm:TCommBlock;
  i,nob:integer;
vs1,vs2,soft1:string;begin
                       
                    listbox1.Clear; //清空MEMO1
    vs1:='';
    nob := 0;
   hd:=GetWindow(Handle,GW_HWNDFIRST);
  while hd<>0 do    begin
      if GetWindowtext(hd,@sz,255)>0 then
 
        vs1:= StrPas(@sz);
            listbox1.Items.Add  (vs1);
              hd:=GetWindow(hd,GW_HWNDNEXT) ;
                 end;                 vs2:='1';
soft1:=';记事本;计算机;'
                   while vs2 <> '' do
                         begin
                      nob:=nob+1;
                          vs2:=getstr(softl,';',nob);
                                 for i:=0 to listbox1.Items.Count -1 do begin
                 if pos(vs2,pchar(listbox1.Items.strings[i])) > 0 then
                           edit1.Text := vs2 ;
                                        end;
               end;
          end;
怎么对比现在的每一个应用程序窗口标题是否包含有STFT1的每一个字符段??
如果有记事本域是计算机的就把程序它关闭!!