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

[demiancz]

Здравствуйте. Помогите пожалуйста решить проблему.
Есть файл index.html в нем есть слово, допустим "Армагедон". Нужно найти это слово в тексте и присвоить переменной s
Затем поставить условие:

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;

Помогите пожалуйста решить проблему. И может можно как то сделать что бы вообще обойтись без Memo?

[s-andriano]

Может, проблема в том, что слово "Армагеддон" пишется с двумя "д"?
Если в тексте оно написано правильно, то, ища "Армагедон", Вы ничего не найдете.

PS. В любом случае, производить поиск дважды - совершенно излишне.

[noname_06]

Навскидку

procedure TForm1.Button1Click(Sender: TObject);
var  i:integer;
begin
Memo1.Lines.LoadFromFile('index.html');
for i:=0 to memo1.lines.count-1 do
if AnsiPos('Армагеддон', memo1.Lines.Strings[i])=-1 then
ShowMessage('Поиск не дал результатов')
else
WebBrowser1.Navigate(ExtractFilePath(paramstr(0))+'index.html');
end;

[FaTaL]

И может можно как то сделать что бы вообще обойтись без Memo?

Используй TStringList вместо TMemo.