how to get specific string from multiple memo : i want to check specific string from multiple memo and if all of them check out then run a procedure but in my code sometimes the procedure runs and sometimes it doesn't and sometimes it runs only when a few have checked out here is my code

   `procedure TForm1.Timer14Timer(Sender: TObject);
    begin
    if (pos('ActiveTunnel',memo10.Text)<>0) or (pos('https://ipfounder.net/? 
    sponsor',memo10.text)<>0)
    and (pos('ActiveTunnel',memo9.Text)<>0) or (pos('https://ipfounder.net/? 
    sponsor',memo9.text)<>0)
    and (pos('ActiveTunnel',memo8.Text)<>0) or (pos('https://ipfounder.net/? 
    sponsor',memo8.text)<>0)
    and (pos('ActiveTunnel',memo7.Text)<>0) or (pos('https://ipfounder.net/? 
    sponsor',memo7.text)<>0)
    and (pos('ActiveTunnel',memo6.Text)<>0) or (pos('https://ipfounder.net/? 
    sponsor',memo6.text)<>0)
    and (pos('ActiveTunnel',memo5.Text)<>0) or (pos('https://ipfounder.net/? 
    sponsor',memo5.text)<>0)
    and (pos('ActiveTunnel',memo4.Text)<>0) or (pos('https://ipfounder.net/? 
    sponsor',memo4.text)<>0)
    and (pos('ActiveTunnel',memo3.Text)<>0) or (pos('https://ipfounder.net/? 
    sponsor',memo3.text)<>0)
    and (pos('ActiveTunnel',memo2.Text)<>0) or (pos('https://ipfounder.net/? 
    sponsor',memo2.text)<>0)
    and (pos('ActiveTunnel',memo1.Text)<>0) or (pos('https://ipfounder.net/? 
    sponsor',memo1.text)<>0)
    then begin
    if Checkbox1.Checked = true then
    begin
    starttun;
    sleep(3000);
    routesaddlast;
    end;
    end;
    end;`