Поиск слова в тексте и присвоение переменной этого слова

if s <> 'Армагедон' then
ShowMessage('Не найдено')
else
WebBrowser1.navigate('index.html')

var
s : string;
begin
Memo1.Lines.LoadFromFile('index.html');
s:=Memo1.Text;
if AnsiPos('Армагедон', s) = 0 then
ShowMessage('Поиск не дал результатов');
if AnsiPos('Армагедон', s) <> 0 then
WebBrowser1.Navigate(ExtractFilePath(paramstr(0))+'index.html');
except
ShowMessage('Не найдено');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s : string;
slist: tstringlist;
begin
  slist := tstringlist.Create;
  slist.LoadFromFile('index.html');
  s:=ansiuppercase(slist.Text);
  if AnsiPos('АРМАГЕДОН', s) = 0 then
    ShowMessage('Поиск не дал результатов')
  else
//  WebBrowser1.Navigate(ExtractFilePath(paramstr(0))+'index.html');
  WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'index.html');//Application.ExeName нагляднее чем paramstr(0), хотя результат один и тот же
  slist.Free;
 end;